1 

BARRIER OPERATOR HAVING SYSTEM 
FOR DETECTING ATTEMPTED FORCED 
ENTRY 

OR/I??i 7 P s P m *? w h 3 con,inuation of application Scr. No. 5 
08/443.17S filed May 17. 1995, now abandoned. 

BACKGROUND OF THE INVENTION 
in paniculai. ic > a garage door operator including a svstem J0 
parage doof. h IBade *° force °P" a 

market for maintaining a garage door either in a closed or 
open position. It is clear that the systems should be relative^ . < 

rapidlj to allow quick- and easy access to the garage In 

£i«!2i'n ,MBy T tCmS UC P rovided •Wch incude 
detectors, pTCSS ^ c detect0 „ and ^ ^ ^ e 

garage door ,s being brought down and the bottom edge of 2C 
the door cpraes in contact with an obstacle prior to the door 
reaching the fully closed position. These sjiww to? ' 

people, pets or small objects and. therefore, prevent personal 
injury and property damage. One of the dxawbacJoTsuc^ 25 
s> stems, however, is that for some such systems, when the 
door has been closed, if a lifting force is applied to the dow * 
for u.stance by an unwanted intruder grabbing the handled 
ttie door and attempting to raise it by jacking the door or the 

SJcTSS d ° 0r 10 ** °** Dcd - " °' d « £ 

Sot nual ha l Of gaia8C v 001 ° pCTa,0r " oscs «*tf« ^ 
potential harm. Of course, if the person operating the door 
is attempting to break and enter Uie garTge for nefarioul 
purposes and it is important that while the ^yslem preTenu 35 
harm, the system also be provided such tha, £e doo? cannot 
be forced open if the operator does not want it to be and 
no persons or property are in danger. 
A system available from the Stanley Company provides a 

te se ^ '^"associated therewith. The switches may 
In the Stanley system, for instance, if the door has reached 
a nominal closed position and the operator haTL down S 
suuch pos.uon changed, the door will actually dynairicaUy-43 

-4Tr; 0 r d r sitioD - d *± 

^ovl" £ T f """^ «»- *e door is down and 50 
effectively mechanically locked attempts to open the door 

the locking mechanism and the garage door operator nuvbe 
^adv-ertently damaged thereby or. afthe very iSst noTopen 
the door because it is locked. ^ 55 

, 8 ? arag ?, d °° r * 0thcr ^ opemor which 8 
while mainlining all safety features to prevent personal 

doTnev^f" 5 ' danUgC dUC ,0 «^»nted closinfof ie 

? rCVCDlS the door from «*bg opened bTI 
po..nve dnve force provided by the garage* dcS oJeStor 

SUMMARY OF THE INVENTION 
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while having ail safety features for prevcntinc personal 
injury and property damage due to inadvertent cio'sine of the 
garage door, nevertheless provides a positively . actuated 
door closure system which prevents forcing the door once it 
5 has closed without having detected any objects underneath 
it. The system includes a barrier drive "including an electric 
motor which may be connected to a belt, chain or screw 
drive. Means are provided for detecting motion of the 
movable barrier. These means may include a motor 

JC tachometer, upper and lower limit switches and the like. 
Means are also provided for detecting when a barrier com- 
mand signal has been given to the barrier drive so that w hen 
a door has been commanded by a radio frequency control, 
the keypad control, indoor wired control or the like to open, 
the door may be automatically opened. The svstera also 
- includes a storage device for storing the commanded state of 
the barrier drive which may be a microcontroller or a 
microprocessor in combination with a memory or some 
other integrated circuit device capable of storing digital or 
anaJog information. The commanded state is stored"and is 

2C then compared in a comparator means with the position 
-indicated by the barrier detection. In the event that the 
comparison of the barrier state signal and the barrier position 
signal indicates that the system already has been in a 
lowered position, usually for given time intervals, such as 27 

25 seconds and attempt is made to raise the door eausine 
unwanted motion of the door when there has been no up 
command given, an alarm signal is generated which may be 
passed through electronic and electromechanical logic to the 
door motor causing the door motor to provide thrust to the 

3C door to hold the door in the closed position. 

In the alternative, the system may also prov ide a signal to 
operate a visual or audio alarm or to call over a telephonic 
or other wired system to a police department or to a security 
service to indicate that the system is being broken into. 

3J It is a principal object of the present invention to provide 
a barrier operator for opening and closing a movable barrier 
which includes an electronic system for detecting when 
forced entry is being attempted on the carrier and for 
preventing the barrier from being opened. 

K Other objects of this invention will become obvious to 
one of ordinary skill in the an upon a perusal of the 
following specification and claims in light of the accompa- 
nying drawings. 

BRIEF DESCRIPTION OF THE DRAWINGS 
FIG. 1 is a perspective view of an apparatus comprising 
a garage door operator and embodying the present invention: 
FIG. 2 is a block diagram of a portion of the head unit and 
apparatus shown in FIG. 1: 


fl\ 1*1*% associated controls of the apparatu 

/ F I// IP FteSo 3h~2C fl^tsc „■ L nG - 3 »II a schematic diagram showing details of the 
/ "ylcircuit show n in FIG. 2: 
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•^circuit shown in FIG. 2: 

FIG. 4 is a flow chart of a top level flow diagram for the 
apparatus embodying the present invention: 

FIG. 5 is a flow diagram of an upper limit routine: 
5 FIGS. 6A and 6B are a flow diagram controlling travel 
upward: 

FIG. 7 is a flow diagram of a down limit routine: 
FIGS 8A and 8B are a flow chart of a downward or 
closing movement routine: 
: FIG. 9 is a flow chart of a barrier closed routine: and 
FIG. 10 is a flow chart of an auto-reverse time delay 
routine. 

DETAILED DESCRIPTION OF THE 
s PREFERRED EMBODIMENT 

Referring now to the drawings and especially to FIG. 1. 
more specifically a movable barrier door operator or garage 



door operator is generally shown therein and includes a head 
unit 12 mounted within a garage 14. More specifically, the 
head unit 12 is mounted to the ceiling of the garage 14 and 
includes a rail 18 extending therefrom with a releasable 
trolley 20 attached having an arm 22 extendinc to a multiple 
paneled garage door 24 positioned for movement alone a 
pair of door rails 26 and 28. The system includes a hand-held 
transmitter unit 30 adapted to send signals to an antenna 32 
positioned on the head unit 12 and coupled to a receiver as 
will appear hereinafter. An external control pad 34 is posi- 
tioned on the outside of the garage having a plurality of ' 
burtons thereon and disposed to communicate via radio 
frequency transmission with the antenna 32 of the head unit 
12. An optical emitter 42 is connected via a power and signal 
line 44 to the head unit. An optical detector 46 is connected 
Ma a wire 48 to the head unit 12. 1 

The head unit 12 has a wired wall control panel 43 
connected to it via a line or wire 43a. as is shown in FIG 2 
More specifically, the wall control panel 43 is connected to 
a charging circuit 70 and a discharging circuit 72 coupled via , 
respective lines 74 and 76 to a wall control decoder 78 The 
wall control decoder 78 decodes closures of a plurality of 
switches 80. 82 and 84 in the wall circuit. The wall control 
panel also includes a light emitting diode 86 connected by a 
resistor 88 to the line 43c and to ground. Switch 80 is the 
command switch, switch 82 is the work light switch and 
switch 84 is the vacation switch. Switch closures are 
decoded by the wall decoder 78 which sends signals along 
lines 90 and 92 to a motor control 94 coupled via motor 
control lines 96 to an electric motor 98 positioned within the 3C 
head unit. A tachometer 100 receives a mechanical feed from 
the motor 98 and provides feedback signals on lines 102 to 
the motor controller. 


receive radio frequency signals fithn from the fUed I RF^j 
keypad 34 or the hand-held tran/mioer 30. The RF signals 
are fed to a radio frequency receiver 112 where thev are 
buffer amplified and supplied/to a bandpass circuit' 114 
which outputs low frequency signals in the range of 1 Hz to 
1 kHz. The low frequency signals are fed to an analog-to- « 
digital convener 116 that senfis digitized code signals to a 
; s radio controller 118. The radSo controller 118 is also con- 
^ nected to receive signals frqfn a non-volatile memory- 120 
over a nonv olatile memory Bus 122 and to communicate via 
lines 124 and 126 with the Aotor controller 94. A timer 128 ~ 45 
is also provided, coupled/ via lines 130 with the radio 
controller, a line 132 with the motor controller and a line 134 
with the wall control decoder 78. A barrier travel limit 
detection device 190 indfudes an up limit detecior 190a and 
adown limit detector \fib that sends signals to pins P20 and so 
P21 of the microcontroller 282. The obstacle detector com- 
prising the emitter 4/ and detector 46 send signals to pins 

JL " ^■° f . the F aoc °**°Uei 282 indicating when an 
•obstacle la hinrifnotti^^th nf thr rinnr 


■"Referring now to FIG. 3. the system shown in FIG 3 is 55 
shown therein with the antenna 110 coupled to a reactive 
divider network 250. comprised of a pair of series connected 
inductances 252 and 254 and capacitors 256 and 258. which 
supplies an RF signal to the buffer amplifier 112 having an 

: agistor 260 connected to receive the RF signal at its 60 
emitter 261. The NPN transistor 260 has a capacitor 262 
connected to it for power supply isolation. The buffer 
amplifier 112 provides a buffered radio frequency output 
signal on a lead 268. The buffered RF signal is fed to an 
input 270 which forms pan of a super-regenerative receiver 65 
272 having an output at a line 274 coupled to the bandpass 
filter 114 which provides output to a comparator 278 The 
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bandpass filter 114 and analog-to-digitai convener provide a 
digital level output signal at a lead 280 which is supplied to 
an input pin P32 of an 8-bit Zilog microcontroller 282. 

The microcontroller 282 may have j, s mode of operation 
controlled by a programming or learning switch 300 posi- 
tioned on the outside of the head unit 12 and coupled via a 
line 302 to the P26 pin of the microcontroller 282 The wired 
control panel 43 is connected via the lead 43a to input pins 
P06 and P07. The microcontroller 282 has a 4 MHz crystal 
328 connected to it to provide clock signals. A force sensor 
330 includes a bridge circuit having a potentiometer 332 for 
setting the up force and a potentiometer 334 for setting the 
down force, respectively connected to inverting terminals of 
a first comparator 336 and a second comparator 338 The 
comparator 336 sends an up force signal over a line 339a 
The comparator 338 sends a down force signal over the line 
339b. respectively to pins P04 and P05 of the 8-bit micro 
controUer 282. Although details of the operation of the 
microcontroller in conjunction with other portions of the 
.circuit will be discussed hereinafter, it should be appreciated 
that the P01 pin of the microcontroller is connected via a 
resistor 350 to a line 352 which is coupled to an NPN 
transistor 354 that controls a light relay 356 which mav 
supply current via a lead 358 to a light in the head unit or the 
2- Lie. Similarly, the pin PO00 feeds an output signal on a line 
360 to a resistor 362 which biases a base of an VPN 
transistor 364 to cause the transistor 364 to condua. drawing 
current through the coil of the relay an up relay 366 causing 
jc oq u |. mo,or cor amand to be sent over a line 96 to the motor 
»8. Finally, the P02 pin sends a signal through a line 370 to 
a resistor 372 via a line 374 to the base of an NPN transistor 
376 connected to control current through a coil of a down 
control relay 378 which is coupled by one of the leads to the 
^ motor 98 to control motion of the motor 98. 

Electric power is received on a hot AC line 390 and a 
neutral line AC line 392 which are coupled to a transformer 
393 at its primary winding 394. The AC is stepped down at 
a secondary winding 395 and is full wave rectified by a full 
^ ua Ve rectifier 396. It may be appreciated that, in the 
alternative, a half wave rectifier may also be used. 

A plurality of filter capacitors 398 receive the full wave 
rectified fluctuating voltage and remove some transients 
from the voltage supplying a voltage with reduced fiuctua- 
- 5 non to an input of a voltage regulator 400. The voltage " 
regulator 400 produces a 5-volt output signal available at a 
lead 402 for use in other portions of the circuit. 

Referring now to FIG. 4. a top level routine is shown 
therein which is entered every two milliseconds upon ax 
sc timing interrupt in a step 500. The routine then enters a 
vanety of other routines depending upon the value of a state 
number. When the state number is 2 an upper limit routine 
is entered in a step 502. If the state number is 1. a traveling 
up routine is entered in a state 504. If the state is 5. a down 
jj limit routine is entered in a step 506. If the state is 4 a 
traveling down routine is entered in a step 508. If the state 
is 6. a barrier halt or stopped in middle routine is entered in 
a step 510. If the state is 0. an auto-reverse time delay routine 
is entered in a step 512. When any of the aforementioned 
6C routines 502 through 512 are exited a return step 514 is 
entered and other portions of code not pertinent to this 
invention are executed. 

In the event that the state equals 2. the routine 502 is 
entered as may best be seen in FIG. 5 wherein the upper limit 
«5 switch has indicated that the door has reached the upper end 
of its authorized travel, the motor is switched off and a 
watchdog timer is started in a step 514. The work light 


d,cr eraeDted and « e ? ted for . ^ ^ ^J?*™J* 
be« timed ou, as iodicat^ by step S^JE?-^ DOt 50 
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in FIGS. 8A and 8B. In a step 570. the work light is turned 
on. and if the light had previously been off. a delay of 40 
milliseconds occurs following which down motor output is 
turned on and the up motor output is turned off the watch- 
5 dog is also started. In a step 572. a test is made to determine 
whether the 1 second timer has exceeded 1 second and 
whether the rpm period is indicative of a force limit havinc 
been exceeded. If so. indicating that the door is stalled on an 
obstacle, control is transferred to a step 574. setting a state 
ic equal- to zero and the routine is exited in a step 576 If the 
door has not been indicated to be stalled by the step 572 
contro is transferred to a step 578 testing the status of the 
down Linit input. If it is low. the debounce is increased. If 
it is high, the debounce is decreased. In a step 580. the Unit 
15 debounce is tested to determine whether it is greater than or 
equal to 24 milliseconds. If it is. the state is set equal to < in 
a step 582 and the routine is exited in a step 584. If it is not 
the 27 second time out is decremented and tested to deter- 
mine if ]t is zero. If it is zero, the state is set equal to zero 
2C jn a step 586 In a step 588. a test is made to determine 
whether the radio or wall control command flag has been set 
and. if so. the state is then set equal to 6. In a step 590 as 
shown in HG. 8B. the timer associated with the optical 
detector is tested to determine whether it is greater than 10 
a milliseconds and, if it is. indicating that an obstacle is 
blocking the light path, the state is set equal to zero to caifce 
the auto-reverse routine 512 to be entered following exilic e 
from this routine. It will be entered on the next interrupt 
which is in less than 2 milliseconds. Control is then trans- 
3C ferred to a step 592. testing whether the motor speed 
indicated that the door had been forced upward. If it is not 
the routine is exited in a step 594. If the rpm sensing 
indicates that the door has been forced upward, a test is made 
in the step 596 to determine if the command is still valid. 
35 indicating the doer is to move upward. If it is not. control is 
transferred to a step 598 setting the state equal to zero which 
will cause the door to auto reverse and move down. Control 
is then transferred to a step 600 exiting the routine. 

In the event that the state has been set equal to 6. the 
* routine 510 shown in FIG. 9 is entered. A test is made to 
determine whether the motor motion indicates that the door 
has been forced upward. If so. a flag is set to turn off the light 
and the electric motor is switched off and the watchdog is 
"45 *?S led - ff * e work Ught command flag has been set in a step 
604. the work light is then toggled. In a step 606. a test is 
made to determine whether the radio command or wall 
control command flag has been set and. if it has. the state is 
then set equal to 4 which will cause entry of the traveling 
x down routine 508. The routine is then exited in a step 608. 
In the event that the state has been set equal to zero 
indicating that an auto reverse is to be commanded the 
routine 512 is entered in a step 620. the motor is turned off 
and a watchdog timer is started. In the step 622. the delav 
5J timer is decreased and if 0.5 seconds has expired, the state 
is set equal to 1 to cause the door to travel upward on the 
next 2 millisecond interrupt. In a step 624. a test is made for 
the radio command or wall control command flag being set 
If it has. the stopped in middle routine 510 will be entered 
60 next interrupt. The routine 512 is then exited in a step 

While there has been illustrated and described a particular 
embodiment of the present invention, it will be appreciated 
that numerous changes and modifications will occur to those 
65 skilled in the art. and it is intended in the appended claims 
to cover all those changes and modifications which fall 
within the true spirit and scope of the present invention. 
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NON-VOL MEMORY MAP 


A11 
A12 
A12 


CYCLE COUNTER 1ST 16 BITS 
CYCLE COUNTER 2ND 16 BfTS 
VACATION FLAG 

A MEMORY ADDRESS LAST WRITTEN 
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20-2F OPERATION BACK TRACK 
30-3F FORCE BACK TRACE 


OUTPUT 


SWITCH STATUS 

XXXXXXXO UP LIMIT OPEN 

XXXXXXX1 UP LIMIT CLOSED 

XXXXXXOX DOWN LIMIT OPEN 

XXXXXX1X DOWN LIMIT CLOSED 

XXXXXOXX COMMAND OPEN 

XXXXX1 XX COMMAND CLOSED 

XXXXOXXX WORKLIGHT OPEN 

XXXX1XXX WORKLIGHT CLOSED 

XXXOXXXX VACATION OPEN 

XXX1XXXX VACATION CLOSED 

SYSTEM STATUS 

XXXXSSSS STATE DATA 

XXXOXXXX NOT IN LEARN MODE 

XXXI XXXX IN LEARN MODE 

XXOXXXXX NOT IN VACATION MODE 

XX1XXXXX IN VACATION MODE 

XOXXXXXX LIGHT OFF 

X1XXXXXX LIGHT ON 

OXXXXXXX AOBS OK 

1XXXXXXX AOBS ERROR 

RPM PERIOD 
RETURNED HIGH BYTE 
RETURNED LOW BYTE 

FORCE 

RETURNED DOWN FORCE 
RETURNED UP FORCE 


37H FORCE HISTORY PAGE 30 

3SH 
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FF ERROR 
39H SET PROGRAM MODE 

REASON 

00 COMMAND 

10 RADIO COMMAND 

20 FORCE 

30 AUXOBS 

40 A REVERSE DELAY 

50 LIMIT 

60 EARLY LIMIT 

70 MOTOR MAX TIME. TIME OUT 

SO MOTOR COMMANDED OFF RPM CAUSING AREV 

90 DOWN Li A\T WITH COMMAND HELD 

AO DOWN LIMIT WfTH THE RADIO HELD 

BO RELEASE OF COMMAND OR RADIO AFTER A FORCED 

UP MOTOR ON DUE TO RPM PULSE WITHG MOTOR OFF 


STATE 


AUTOREVERSE DELAY 
TRAVELING UP DIRECTION 
AT THE UP LIMIT AND STOPED 
ERROR RESET 

TRAVELING DOWN DIRECTION 
AT THE DOWN LIMIT 
STOPPED IN MID TRAVEL 


1) AOBS SHORTED 

2) AOBS OPEN i MISS ALIGNED 

3) COMMAND SHORTED 

4) PROTECTOR INTERMITTENENT 

5) CALL DEALER 

A) NO RPM IN THE FIRST SECOND 

B) RPM FORCED A REVERSE 
C) 


DOG 2 IS A SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL •MAINLOOP" 

IS NOT REACHED WrTHIN A 3 SECOND 
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EQUATE STATEMENTS 


check_sjm_vatue .equ 09 AH 

TIMER_0 .EOU 10H 

TIMER_0_EN .EQU 03H 

TIMER_1_EN .EOU OCH 


MOTOR_HI 

MOTOR_LO 

PWM CHARGE 

PWMJ3ISCHARGE 

LIGHT 

LIGHT_ON 

MOTOR_UP 

MOTOR_DN 

DN_LIMIT 

UP_LIMIT 

DIS_SW 

CDIS_SW 

SWITCHES 

CHARGE_SW 

CCHARGE_SW 

PWM_HI 

COMPARATORS 

DOWN_COMP 

UP_COMP 

PWM_DIS 

P01MJNIT 

P2MJNIT 

P3MJNIT 

P01S_INIT 

P2SJNIT 

P3S_INIT 


EQU 034H 
EQU OBCH 

• EQU 00H 

■ EQU 01H 
-EQU OFFH 

EQU 02H 

EQU 01 H 
•EQU 04H 

EQU 02H 
.EQU 01 H 
-EQU 10000000B 

■ EQU 0111111 IB 
•EQU 010O0O0OB 

• EQU 001 00000 B 
•EQU 11011111B 
EQU 10H 

EQU 30H 
EQU 20H 

■ EQU 10H 

■ EQU 20H 

• EOU 01000100B 

• EQU 01 10001 IB 
EQU 0000001 IB 

• EQU 0000001 OB 
EQU 10000011B 
EQU 00000000B 


; set mode p00-p03 out pO4-p07in 

: set ports p30-p33 input ANALOG mode 


COM_CHARGE 
WOR K_C HA RGE 
VAC_CHARGE 

COM DIS 

WORK_DIS 

VAC_OIS 

CMD_TEST 
WL_TEST 
VAC_TEST 
CHARGE 

AUTO REV 
UP_DIRECTION 
UP_POSITION 
DN_DIRECTION 


■EQU 2 

•EQU 20 

• EQU 80 

EQU 01 

•EQU 04 

•EQU 24 

EQU 00 

•EQU 01 

EQU 02 

EQU 03 

•EQU 00H 

•EQU 01 H 

-EQU 02H 

•EQU 04H 
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DEPOSITION 
STOP 
CMD_SW 
LIGHT_SW 


EOU 05H 

.EOU 06H 

.EOU 01H 

EQU 02H 

EOU 04H 


LIMIT COUNT 

.EQU 

OFH 

AUTO HI 

EQU 

O0H 

AUTO LO 

.EQU 

OF4H 

MIN COUNT 

.EQU 

04H 

TOTAL_PWM COUNT .EQU 

03FH 

FLASH H) 

.EOU 

O0H 

FLASH LO 

EQU 

07AH 

SET TIME HI 

.EQU 

02H 

SET TIME LO 

EQU 

02H 

SET TIME PRE 

EQU 

OFBH 

ONE SEC 

EQU 

0F4H 

CMD MAKE 

.EQU 

8D 

CMD BREAK 

-EQU 

(255D-8D) 

LIGHT MAKE 

.EQU 

8D 

LIGHT BREAK 

.EQU 

(255D-8D) 

VAC MAKE OUT 

.EQU 

4D 

VAC BREAK OUT 

.EQU 

(25SD-4D) 

VAC MAKE IN 

•EQU 

2D 

VAC_BREAK_IN 

.EQU 

(255D-2D) 

VAC DEL 

EQU 

8D 

CMD DEL EX 

.EQU 

4D 

VAC DEL EX 

.EQU 

SOD 


; pwm start point 

; pwm end - stai. + 4*1 

; .25 sec flash 

4.5 MIN 
4.5 MIN 
4.5 MIN 

WITH A 12 IN FRONT 

; cycle count *10mS 

; cycle count '11 mS 

; cycle count *"0OmS 


PREDEFINED REG 


:FLAGS 

;IMR 

;IRQ 

:IPR 

;P01M 

;P3M 

;P2M 

;PRE0 


255 
253 
252 


; stack pointer 

; register pointer 

; cpu flags 

; interrupt mask reg 

; interrupt request 

; interrupt priority 

; port 0 mode 

; port 3 mode 

; port 2 mode 

; prescater tor timer 0 

; timer 0 

; prescaler tor timer 1 
; timer 1 
; timer mode 
; port 3 
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ALL_ON_fMR .equ 
RETURM_IMR .equ 


GLOBAL REGISTERS 
STATUS .EQU t 


STATE 

PWM_STATUS 
PWMJDFF 
AUTO_DELAY_HI 
AUTO_DEl_AY LO 

auto_delay~ 
motor_timer hi 
motor_timerj.o 
motor timer 

LIGHT_flMER_HI 
LIGHT_TIMER_LO 
LIGHT_TIMER 

PR£_LIGHT 
SVV_DATA 
ONEP2 
LAST_CMD 


RPMONES 
RPMCLEAR 
FAREVFLAG 


FLASH_FLAG 

FLASH_DELAY_HI 

FLASH_DELAY_LO 

FLASH DELAY 

FLASH_COUNTER 

REASON 


EOU 05H 

.EOU 06H 

EQU 07H 

EOU 08H 

■ EQU 09H 

■ EQU 08H 
.EQU OAH 
EQU OBH 
EQU OAH 
EQU OCH 
• EQU ODH 
EQU OCH 

■EQU OFH 

■ EOJ 10H 

■ EQU 11H 

■ EQU 12H 


EOU 14H 
■ EQU 15H 
■EQU 16H 


EQU 17H 

■ EOU 18H 

• EQU 19H 

■EQU 18H 

•EQU 1AH 

EQU 1BH 


; CMD_TEST 00 
; WL_TEST 01 
; VAC_TEST 02 
; CHARGE 03 


; 1.2 SEC TIMER TICK .125 
; LAST COMMAND FROM 
; = 55 WALL CONTROL 
; - 00 RADIO 
: B CODE FLAG 
; 77 - b code 

; RPM PULSE ONE SECOND DISABLE 
; RPM PULSE CLEAR AND TEST TIMER 
; RPM FORCED AREV FLAG 
; 88H FOR A FORCED REVERSE 


COMMAND 
RADIO COMMAND 
FORCE 
AUXOBS 

AUTOREVERSE DELAY TIMEOUT 
LIMrT 

EARLY LIMIT 
MOTOR MAX TIME OUT 
FORCED AREV FROM RPM 
CLOSED WITH COMMAND HELD 
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LIGHT_FLAG 
CMD_DEB 
LIGHTDEB 
VAC_DEB 


TIMER_GROUP 

sw_address_hi 

sw_address_lo 

sw_ad*ess 

t_address_hi 

t_address_lo 

!_address 

swrtch_delay 

obs_coum 

rs232do 

rs232di 

rscommand 

rs232docount 

rs232dicoun1 

rs232odelay 

rs232kielay 

rs232ccount 

rs232page 

SWITCH_DELAY 
LIMIT 

OBS_COUNT 

RS232DO 

RS232DI 

RSCOMMAND 

RS232DOCOUNT 

RS232DICOUNT 

RS2320DELAY 

RS232IDELAY 

RS232CCOUNT 

RS232PAGE 


; AO CLOSED WITH THE RADIO HELD 



1 cu 

POM 


EON 

1PH 

tuu 


.equ 



1 

.equ 

'to 



equ 

r3 

.equ 

rr2 

.equ 

r4 


r5 

equ 

r6 

equ 

r7 

equ 

r8 

.equ 

r9 

■equ 

MO 

.equ 

r11 

.equ 

r12 

.equ 

r13 

equ 

r14 

.equ 

r15 

.EQU 

TIMER GROUP+4 

.EQU 

TIMERJ3ROUP+5 

.EQU 

TIMER GROUP+6 

.EQU 

TIMER GROUP+7 

EQU 

TIMER GROUP** 

.EOU 

TIMER GROUP+9 

EQU 

TIMER GROUP»10 

EQU 

TIMER GROUP+11 

EQU 

TIMER GROUP+12 

EQU 

TIMER GROUP+13 

.EQU 

TIMER GROUP+14 

EQU 

TIMER GROUP+15 


; LEARN EE GROUP FOR LOOPS ECT 


LEARNEE_GRP 
TEMPH 
TEMPL 
TEMP 
LEARNDB 
LEARNT 
ERASET 
MTEMPH 
MTEMPL 
MTEMP 
SERIAL 
ADDRESS 


equ 30H 
LEARNEE GRP 
LEARNEE GRP+1 
LEARNEEJ3RP+2 
LEARNEE_GRP+3 
LEARNEE_GRP+4 
LEARNEEJ3RP+5 
LEARNEE GRP+6 
LEARNEEJ3RP+7 
LEARNEE_GRP-t-8 
LEARNEE_GRP*9 
LEARNEE_GRP+ 10 


learn de bouncer 
learn timer 
erase timer 
memory temp 


memory temp 

serial data to and from noovot memory 
address tor the serial nonvol memory 
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TO EXT 

equ 

LEARNEE 

T4MS 

.equ 

LEARNEE 

T125MS 

.equ 

LEARNEE" 

ZZWIN 

.equ 

LEARNEE 

SKIPRADIO 

.equ 

LEARNEE, 


.equ 

rO 

tempi 

.equ 

rl 

lemp 

.equ 

r2 

learndb 

.equ 

r3 


.equ 



equ 

r5 

mlemph 

.equ 

r6 

mtempl 


r7 

mlemp 

.equ 

r8 

serial 

equ 

r9 

address 

equ 

no 

tOext 

.equ 

r11 

14ms 

equ 

M2 

tl25ms 

-equ 

r13 


.equ 

r14 

skipradio 

equ 

r15 


; timer o extend decremented every TO in 

; 4 mS counter 

: 125mS counter 

; radio 00 code window 

; flag to skip the radio read and write it 

; learn or vacation are talking to it 


; learn de bouncer 
; learn timer 
; erase timer 
; memory temp 
; memory temp 
; memory lemp 

; serial data to and Irom nonvol memory 
; address for the serial nonvol memory 
; timer 0 extend decremented every TO int 
; 4 mS counter 
; 125mS counter 

; flag to skip the radio read and write rf 
; leam or vacation are talking to it 


PWM_GROUP 

dnlorce 

upforce 

up_1orce_hi 

upjorcejo 

up_(orce 

dn_1orce_hi 

dn_force_lo 

dn_force 

force_add_hi 

lorce_add_lo 

lorce_add 

up_temp 

dn_temp 

pulsewidth 

pwm_count 

DNFORCE 

UPFORCE 

AOBSTEST 

FAULTTIME 

UP_FORCE_HI 

UP_FORCE_LO 

DN_FORCE_HI 

DN_FORCE_LO 

PULSEWIDTH 

PWM_COUNT 

AOBSF 

FAULTCODE 


45H 
46H 
47H 
4CH 
4DH 
4EH 
4FH 
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■ RPM_GROUP 

stackreason 

stackilag 

rpm_temp_hi 

rpm_temp_lo 

rpm_past_hi 

rpm _past_(o 

rpm_past 

rpm_period_hi 

rpm_period_lo 

rpm_period 

rpm_ditf_hi 

rpm_dirf_lo 

rpm_2past_hi 

rpm_2pas1Jo 

rpm_selldifl_hi 

rpm_set_tSff_lo 

rpm_time_out 

STACKREASON 

STACKFLAG 

RPM_TEMP_HI 

RPM TEMP_LO 

RPM_PAST_HI 

RPM_PAST_LO 

RPM_PERIOD_HI 

RPM_PERIOD_LO 

RPM_COUNT 

RPM_DIFF_HI 

RPM_DIFF_LO 

RPM_2PAST_HI 

RPM_2PAST_LO 

RPM_SET_DIFF_HI 

RPM_SET_DIFF LO 

RPM_TIME_OUT 


.equ 
.equ 
.equ 
.equ 
.equ 


.EOU 
.EQU 
.EOU 
.EQU 

EQU 
.EQU 
.EQU 

EOU 
.EOU 
.EQU 
.EQU 
.EQU 
.EQU 

EQU 
.EOU 
.EQU 


r15 

RPMJ3ROUP+0 
RPMJ3ROUP+1 
RPM GROUP+2 
RPMJ3ROUP+3 
RPMJ3ROUP+4 
RPM_GROUP+5 
RPM_GROUP+6 
RPM_GROUP+7 
RPM_GROUP+8 
RPM_GROUP+9 
RPM_GROUP+10 
RPMJ3R0UP-O1 
RPMJ3ROUP+12 
RPM_GROUP+13 
RPMJ3ROUP+14 
RPM_GROUP+15 


. RADIO GROUP 


RADIO_GRP 

RTEMP 

RTEMPH 

RTEMPL 

RTIMEAH 

RTIMEAL 

RTIMEIH 

RTIMEIL 

RTIMEPH 

RTIMEPL 

RADI03H 


60H 

RADIO GRP 

RADIO GRPfl 

RADIO GRP+2 

RADIOJ3RP+3 

RADIO_GRP+4 

RADIO_GRP+5 

RADIO_GRP+6 

RADIOJ3RP+7 

RADiO_GRP+8 

RAD)0_GRP+9 


; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time Jow byte 
; radio past time high byte 
; radio past time low byte 
; 3 mS code storage high byte 
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RADIC3L 
RADiOlH 
RADIOIL 
RADtOC 
RTIMEDH 
RTIMEDL 

rlerhph 

rtimeah 


.equ 
equ 
.equ 


.equ 
.equ 
equ 
.equ 


rtimeph 
rtimepl 
radio3h 
radio 3 1 
radio 1h 
radio ll 
radioc 

rtimedl .eqi 

CHECK_GRP 

check_sum 

rom_data 

iest_adr_hi 

test_adr_lo 

tesl_adr 

CHECK_SUM 

ROM_DATA 

AUXLEARNSW 

RRTO 

RPM_ACOUNT 

RSCCOUNT 

RSSTART 

RADIO_CMD 
R DEAD_TIME 
FAULT 

VACFLAG 

VACFLASH 

VACCHANGE 

TASKSWITCH 

FORCE IGNCH1E 

FORCE~PRE 

SDISABLE 

PRADI03H 

PRADI03L 

PRADIOIH 

PRADIOIL 

RTO 

RFLAG 

RINFILTER 


RADIO_GRP^10 
RADIO GRP+11 
RADIO J3RP+12 
RADIO_GRP+13 
RADIO_GRP+14 
RADIO GRP+15 
rO 
rl 


.equ 
.equ 
.equ 
.equ 
.equ 
.equ 


.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 


, 3 nr»S code storage low byle 
; 1 mS code storage high byte 
; 1 mS code storage low byte 
; radio word count 

. radio ditierence of active and inactive 

; radio ditierence 

; radio temp storage 

; radio temp storage high 

; radio temp storage low 

; radio active time high byte 

; radio active time low byte 

; radio inactive time high byte 

; radio inactive time low byte 

; radio past time high byte 

; radio past time low byle 

: 3 mS code storage high byte 

: 3 mS code storage low byte 

; 1 mS code storage high byte 

; 1 mS code storage low byte 

; radio word count 

; radio difference of active and inactive 
; radio difference 


; checksum pointer 


r3 
rr2 

CHECK_GRP+0 
CHECKJ3RP+1 
CHECK_GRP+2 
CHECK_GRP+3 
74H 
75H 
76H 


; to test for Bctive rpm 
; rs232 byte counter 
; rs232 start flag 


77H 
.equ 78H 
.equ 79H 


7AH 
7BH 
7CH 
7DH 
7EH 
7FH 

eoH 

81H 


85H 
86H 
B7H 


; VACATION mode flag 


; system disable timer 

; 3 mS code storage high byte 

; 3 mS code storage low byte 

; 1 mS code storage high byte 

; 1 mS code storage low byte 

; radio time out < 

; radio flags 

; radio input fitter 
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LIGHT1S 
DOG2 
. FAULTFLAG 
MOTDEL 
LIGHTS 
DELAYC 
COUNTER 

BACKUP_GRP 

Forced Down 

BRPM_COUNT 

BRPM_TIME_OUT 

BFORCEJGNORE 

BAUTO_DELAY_HI 

BAUTO_DELAY_LO 

BAUTO_DELAY 

BCMD_DEB 

BSTATE 


.equ 
.equ 
.equ 


88H 
89H 
8BH 
8CH 
8DH 
8EH 
8FH 


, lichl timer lor 1 second flash 

: second watchdog 

; (lag for lault blink stops radio blink 

; motor time delay 

; light state 

; lor the time delay (or command 
; delay counter 


90H 

BACKUP_GRP 

BACKUPJ3RP+1 

BACKUP_GRP+2 

BACKUP_GRP+3 

BACKUPJ3RP+4 

BACKUPJ3RP+5 

BACKUP_GRP-h4 

BACKUP_GRPt.6 

BACKUPJ3RP+7 


:P3 

equ 

3 

;P2 

equ 

2 

;P0 

equ 

0 

RS2320S 

equ 

010O0OOOB 

RS2320C 


10111111B 

RS2320P 

equ 

P3 

RS232IP 

.equ 

P2 

RS232IM 

.equ 

O01O0O0OB 

csh 

.equ 

000100006 

csl 

.equ 

1 1 10111 IB 

dockh 

.equ 

00001 0O0B 

clock) 

.equ 

11110111B 

doh 

.equ 

000001 00B 

dol 

.equ 

11111011B 

ledh 

.equ 

10000000B 

led) 

■equ 

01111111B 

psmask 

.equ 

01000000B 

cspori 

.equ 

P2 


.equ 

P2 

clkport 

equ 

P2 

led port 

.equ 

P2 

pspon 

•equ 

P2 


; port 3 
; port 2 
; port 0 

; RS232 output bit set 
; RS232 output bit dear 
; RS232 output port 
; RS232 input port 
; RS232 mask 

; chip select high for the 93c46 
; Chip select low tor 93c46 
; clock high tor 93c46 
; clock low for 93c46 
; data out high for 93c46 
; data out law for 93c46 
; turn the led pin high •on" 
; turn the Jed pin low "off 
; mask foTthe program switch 
. chip select port 
; data i/o port 
; clock port 
; led port 

; program switch port 


WATCHDOG_GROUP .EQU 0FH 

Peon .equ rO 

smr r11 

wdtmr r i 5 

WDT macro 



F| LL macro 

• byte OFFh 
endm 


endm 
macro 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 


start 
start 
start 
start 
start 


Interrupt Vector Table 


org 

0000H 

word 

RADIO INT 


OOOCH 

word 

RPM 

.word 

AUX OBS 

word 

TIMERUD 

word 

PWM 

page 
org 

OOOCH 

ip 

START 


;IRQO 

,-IRQl . P3.3 
;IRQ2. P3.1 
;IRQ3. P3.0 
;IRQ4. To 
;IRQ5,T1 


: start jmps to start at location 0101 or 0202 ect 


.word 
.word 
-word 
.word 


107FH 
107FH 
109DH 
10BBH 
10D9H 
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F_5: word 10F8H 

F_6: .word 1116H 

F_7: .word 1134H 

F_8: .word 1152H 

F_9: .word 1168H 

F_10: .word 117DH 

F_11: .word 1193H 

F_12: word 119FH 

P_13: .word 11ABH 

F_14: .word 11B7H 

F_15: word 11C3H 

F_16: .word 11CFH 

F_17: .word 11DFH 

F_18; .word 11E8H 

F_19: .word 11F4H 

F_20: .word 1200H 

F _21: .word 120CH 

F_22: .word 1218H 

F_23: .word 1224H 

F_24: .word 1230H 

F_25. .word 123CH 

F_26: .word 1248H 

F_27: word 1254H 

F_26: .word 1260H 

F_29: word 126CH 

F_30: word 1278H 

F_31: word 1264H 

F_32. word 1291H 

F_33. .word 129DH 

F_34: word 12BBH 

F_35: .word 12D9H 

F_36: word 12F7H 

F_37: word 1315H 

F_38: .word 1333H 

F_39: .word 1352H 

F_40: word 1370H 

F_41: .word 138EH 

F_42: .word 13ACH 

F_43: word 13CAH 

F_44: .word 1407H 

F_45: .word 1443H 

F_46: .word 147FH 

F_47: .word 14BCH 

F_4«: .word 14F8H 

F_49: word 1534H 

F_50: .word 1571H 

F _51: word 15E9H 

F_52: .word 1626H 

F_53: .word 169EH 

F_54: .word 1717H 

F_55: word 17D5H 

F_56: word 1951H 

F_57: word 1B8DH 

F_58: .word 1E86H 

F_59; .wort 223EH 

F_60: .wort 26B4H 
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34 


F_61: 
F_62: 
F_63 
F_64; 


2BE9H 
31DDH 
388 EH 
388 EH 


RS232 DATA ROUTINES 


enter rs232 start with word to output in rs232do 

RS2320START: 

posh rp 

srp rriMER_GROUP 

Clr RSSTART 

Id rs232odelay.#6d 

clr rs232docount 

and RS2320P.#RS2320C 

jr NORSOUT 


save the rp 

set the group pointer 

one shot 

set the time delay to 3. mS 
Stan with the counter at 0 
clear the output 


RS2320UTPUT; 


#TIMER_GROUP 
rs232docount.#l id 
nz.RS232R 
RS2320P.#RS2320S 
NORSOUT 


; test tor the start flag 


; save the rp 

; set the group pointer 

; test tor last 

; set the output idle 


RS232SET: 
SETTIME: 


C.RS232SET 

RS2320P.*RS2320C 

SETTIME 

RS2320P,#RS2320S _ 

rs232odelay.#6d 
rs232docount. #00000001 b 
Z.NORSOUT 
rs232odelay.#7d 


; cycle count time delay 

; set the count lor the next cycle 

; set the carry flag for slop bits 

; get the data into the carry 

; if the bit is high then set 

; clear the output 

; find the delay time 

; set the output 

; set the data output delay 
; test for odd words 
; if even done 
; set the delay to 7 for odd 
;tnis gives 6.5 \512mS 


rs232dicourrt,l»0FFH 

nz.RECEIVING 

RS232IP.#RS232IM 

ru.NORSIN 

rs232dicount 

rs232idelay.#3 


: test mode 

; H receiving then jump 

; test the incoming data 

; if the line is still idle then skip 

; start at 0 

; set the delay to mid 


35 


5.780.987 


36 


djnz 

re232idelay.NORSIN 

inc 

rs232dicount 

cp 

rs232dicount.#10d 

if 

z.DIEVEN 

lm 

RS232IP.#RS232IM 

ref 


if 

2.SKIPSETTING 

scf 


rrc 

rs232di 

Id 

rs232idelay.#6d 

lm 

rs232dicount,#00000001b 

K 

z.NORSIN 

Id 

rs232idelay.#7 

) r 

NORSIN 

Id 

rs232dicounl,#OFFH 

Id 

rsoommand, rs2 32di 

clr 

RSCCOUNT 

pop 

rp 

ret 


FILL 


FILL 



: skip till delay is up 

; bit counter 

; test lor last timeout 

; test the incoming data 
; clear the carry 

; if input bit not set skip setting carry 
; set the carry 

; save the data into the memory 
: set the delay 
; test for odd 
; if even skip 
; set the delay 


; turn off the input till next s 
; save the value 
; clear the counter 


: REGISTER INITILI2ATION 


: PORT INITILI2ATION 


; address has both bytes the same 

; turn off the interrupt for init 

; rc dog 100mS 

; kick the dog 

; clear the register pointer 


Id 

P0,#P01S INIT 

Id 

P2,#P2S INIT-2 

Id 

P3.#P3S INIT 

Id 

P01M,#P01M INIT 

Id 

P3M,#P3M_INIT 

Id 

P2M.#(P2MJNIT-3) 


; RESET all ports 

; Sel the up limit high . down limit low 

; set mode p00-p03 out p04-p07in 
; set port3 p30-p33 input analog mode 
; p34-p37 outputs 

; set port 2 mode selling the limits as 
; outputs for fema of open 


Internal RAM Test and Reset All RAM . mS 



sip 

#OF0h 

Id 

r15.#4 

WDT 


Id 

r14,#1 

Id 

@r15,r14 • 

cp . 

r14,@r15 

/' 

ne, system error 

rl 

r14 

if 

nc.write again 1 

clr 

@rl5 

inc 

r15 

cp 

rl5.#240 

i' 

ult,wrt»e_again 


: point to control group use slack 
;r15= pointer (minimum ol RAM) 

: KICK THE DOG 


;write RAM<rS)-0 to memory 


Checksum Test 


CHECKSUMTEST: 


#CHECK_GRP 

test_adr_hi,#OFH 

tesl_adrJo,#OFFH 


rom_data, @te st_adr 
cheek_sum,rom_data 
tesl_adr 
nz.addsum 

check_sum,#check_sum_value 


z,system_ok 


; maximum address-tffh 

; KICK THE DOG 
;read ROM code one by one 
;add it to checksum register 
rincremenl ROM address 
;address-0 ? 

;check final checksum - 00 ? 
; tum on the LED to indicate fault 


.byte 256-check_sum_vaJue 


SETSTACKLOOP: 


STACKEND,#STACKTOP 

@STACKEND,#01H 
STACKEND 

STACKEND,#STACKEND 
nz.SETSTACKLOOP 


; kick the dog 

; start at the top of the stack 

; set the value for the stack vector 

; next address 

; test lor the last address 

; loop till done 


STATE.#06d 
ESTATE ,#06d 
STATUS.#CHARGE 


set the state to stop 
set start to charge 


***** 
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SWITCH_DELAY,#CMD_DEL_EX 
LIGHT JTIMER_HI,#SET_TIME_HI 
LIGHT_TIMER_LO.#SET TIME LO 
PRE_LIGHT,#SET_TIME_PRE ~ 
PULSEWIDTH,#MIN_COUNT ; set 
PWM_COUNT.#TOTAL_PWM_COUf^T; 
RPMOMES,#244d 
RS232DOCOUNT.#1 1 D 
#LEARNEE_GRP 
leamdb.#OFFH 
zzwinleamdb 
CMD DEB.Ieamdb 
BCMD_DEB.Ieamdb 
VAC_OEB.Ieamdb 
LiGHT_DEB,learndb 
ERASET.Ieamdb 
learnt. leamdb 
RTO.Ieamdb 
AUXLEARNSW.Ieamdb 
RRTO.Iearndb 


set the delay time to cmd 
set the light period 
tor the 4.5 min timer 


set the hold off 
turn off the rs232 output 

set the leam de bouncer 
turn off the teaming 
in case of shorted switches 
in case of shorted switches 


set the erase timer 
set the learn timer 
set the radio time out 
turn off the aux leam switch 
set the radio timer 


; STACK INIT1LIZATION 


; set the start of the stack 


; TIMER INlTlLIZATION 


PREO,#00001001B 
PRE 1, #01 00001 OB 
T0,#OO0H 
Tl.MIN_COUNT 
TMR,#O0000011B 


PORT INITILIZATION 


PO.#P01S_INIT 
P2.#P2SJNIT 
P3,#P3S INIT 
P01M,#P01M_INIT 
P3M.#P3M_INIT 

P2M.#(P2M_INfT + 0) 


; READ THE MEMORY 2X AND GET THE VAC FLAG 


set the prescaler to / 2 for 8Mhz 

one shot mode /1 6 

set the counter to count FF through 0 

set init count 

turn on the timer 


set mode pO0-pO3 out pO4-p07in 
set port3 p30-p33 input analog mode 
p34-p37 outputs 
set port 2 mode 


SKIPRADIO,#OFFH 
ADDRESS.nEH 


; set non vol address to the VAC Hag 


5.780.987 


41 


READMEMORY 
READMEMORY 
VACFLAG.MTEMPH 
SKJPRADIO 


read the value 2X 1X INIT 2ND read 
read Ihe value 
save into volital 


INITERRUPT (NITILIZATION 
SETINTERRUPTS. 


IPR #000110108 ; set the priority to timer 

IMR.#ALL_ON_IMR ; turn on the interrupt 
IRQ.#01000000B ; seflhe edge clear inl 

; enable interrupt 


; RESET SYSTEM REG 


RP.#WATCHDOG_GROUP 


PRE0,#00001001B 
RS232DO,#0BBH 
VACSWOPEN 


; reset the xtat / number 

; reset the peon no comparator output 

; no low emi mode 

; set the prescaler to / 2 for 8Mhz 

; set the rs232 data 

; start the transmission 


SETVACCHANGE: 


DOG2 

P01M,#P01M_INIT 
P3M.#P3M_INIT 

P2M.#(P2M_INrT+0) 

VACCHANGE.#OAAH 

nz.NOVACCHG 

VACFLAG,#OFFH 

z.MCLEARVAC 

VACFLAG,#OFFH 

SETVACCHANGE 

VAC FLAG 

VACCHANGE 

SKIPRADIO.KOFFH 

ADDRESS,#1 EH 

MTEMPH.VACFLAG 

MTEMPL.VACFLAG 

WRITE MEMORY 

SKIPRADIO 


; dear the second watchdog 

, set mode pOO-p03 out pO4-p07in 

; set port3 p30-p33 input analog mode 

; p34-p37 outputs 

; set port 2 mode 

; test for the vacation change flag 

; -if no change the skip 

; test for in vacation 

; H in vac clear 

; set vacation 

; set the change 

; clear vacation mode 

; one shot 
; set skip flag 

; set the non vol address to the VAC flag 
; store the vacation flag 

; write the value 
; dear skip flag 
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COUNTER2DONE: 


COUNTER1DONE: 
call 

CDONE: 


NOCHANGEST: 


#LEARNEE_GHP 

STACKFLAG 

SKIPRADlO.»0FFH 

address. #1CH 

READMEMORY 

mlempl 

nz.COUNTERl DONE 
mlemph 

nz.COUNTER2DONE 
WRITEMEMORY 


RE ADM EMORY 
mtempl 

n2.COUNTER2DONE 
mlemph 

WRITEMEMORY 
address. #iCH 
READMEMORY 

fnlemph.#0OOOl11lB 

mtemph.#30H 

ADDRESS, MTEMPH 

mlempl, DNFORCE 

mlemph.UPFORCE 

WRITEMEMORY 

CDONE 

WRITEMEMORY 


s.#1CH 
READMEMORY 
mtempl,#00001l11b 
address. #20H 
address, mtempl 
mlemph. STACKREASON 
miemph.STATE ; or in the state 

WRITEMEMORY ; write the value to stack 
SKIPRADIO "clear skip flag 


lest for the change flag 
if no change skip updating 

set the register pointer 
clear the flag 
set skip Hag 

set the non vol address to the cyde c 
read the value 

increase the counter tower byte 

increase the counter high byte 

store the value 
get the next bytes 
read the data 

increase the counter low byte 

increase the vounter high byte 

save the value 

read the data 

find the force address 


got the new address 


get the first byte 
find the address 


; do the learn switch 


RESET: 
TESTRPM: 


BRPM_TIME OUT,RPN,_TIME OUT 
nz, RESET 

BFORCE_IGNORE. FORCE IGNORE 

nz, RESET 
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BAUTO_DELAY_HI.AUTO_DELAY HI 
nz, RESET 

BAUTO DELAY LO,AUTO_DELAY LO 
nz, RESET 

BCMD_DEB,CMD_DEB 
nz, RESET 
BSTATE.STATE 
nz.RESET 


CMDSWOPEN: 

c 

i' 

0 

WLSWOPEN. 

c 
if 

VACSWOPEN: 

d 

It 

skiprs232: 

if 

TEST31: 

C 

i' 

k 

c 

i' 

o 

NOTINLEARN: 


RSSTART.#0FFH 
z,skiprs232 
RSCOMMAND,#OFFH 
z,skjprs232 

RS232DOCOUNT.#11d 

nz,skiprs232 

RSCOMMAND,#30H 

nz.TEST31 

RS232DO 

p2,#UP_LIMIT 
nz.UPLIMOPEN 
RS232DO,#00000001 B 

p2.#DN LIMIT 
nz.DNLIMOPEN 
RS232DO. #0000001 OB 

CMD_DEB.#OFFH 
nz, CMDSWOPEN 
RS232DO,#000001 00 B 

UGHT_DEB.#OFFH 
nz.WLSWOPEN 
RS232DO,#00001 0O0B 

VAC_DEB.#OFFH 
nz, VACSWOPEN 
RS232DO.#O00 1 0000B 


RSCOMMAND.#31H 
nz,TEST32 
RS232DO.STATE 
LEARNT, #OFFH 
Z, NOTINLEARN 
RS232DO.#0001 0000B 

VACFLAG,#00H 


; test (or starting a transmission 
; if starting a trans skip 
: test for the off mode 

: test for output done 

; if not the skip 

; test for switch data 

; dear the data 

; test for up limit 

; set the marking bit 

, test for the down Bmrt 

; set the marking bit 

; test for the command set 

; set the marking bit 

; test for the worWight set 

; set the marking bit 

; test fir the vacation set 

; set the marking bit 

; set the start flag 
; turn off command 
; relum 


test for status data 


test the vacation flag 
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NOTIN VACATION: 


2, NOTIN VACATION 
RS232DO,#001 OO0OOB 


pO.#WORKLIGHT 
2.LIGHTISOFF 
RS232DO,#01 00O000B 

AOBSF.#00000001B 
Z.AOBSFINE 
RS232DO,#1 00OO0O0B 

VACSWOPEN 


lest lor Ihe light on 

mark the bit 

test lor aobs error 


; test tor rpm data 


RSCOMMAND.#32H 
nz.TEST33 
RS232DO. RP M_P E RIOD_LO 
SSItrSJ'* 01 H ^ ,es1 ,or on tfansmi "«* 

RS232DO.RPM_PERIOD_H! ; 


RSSTART 

RSCCOUNT 

Skiprs232 

RSCCOUNT 

VACSWOPEN 


; set the start flag . 
: increase the count 
; return 

; reset the counter 
; return 


RSCOMMAND,#33H 

nz,TEST34 

RS232DO.UPFORCE 

RSCCOUNT, #00 

z.STARTOUT 

RS232DO.DNFORCE 

LASTRPM 


; test for force data 


RSCOMMAND,#34H 
m.TEST35 
RS232PAGE.#00H 
RS232PAGE OUT 

RSCOMMAND.«35H 
ru.TEST36 
RS232PAGE.#10H 
RS232PAGEOUT 

RSCOMMAND.#36H 
nz.TEST37 
RS232PAGE,#20H 
RS232PAGEOUT 


; test for radk> page 


; test tor force page data 


, test for history page Idata 


; test for history page 2 data 
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RS232PAGF.OUT: 


RS232PAGE,#30H 


ADDRESS 

ADDRESS, RS232PAGE 

READMEMORY 

RS232DO ,MTE MPH 

RSCCOUNT,#01H 

z.RPBYTE 

RS232DO.MTEMPL 

SKIPRADIO 
RSCC0UNT,#1FH 
z.LASTRPM 
STARTOUT 


; read the data 
; test which byte 


WRITELOOP1 


CP 

RSCOMMAND,#38H 

if 

nz.TEST39 

id 

RS232DO,#OFFH 

Id 

SKIPRADIO.#0FFH 

Id 

MTEMPH,#OFFH 

Id 

MTEMPL,#OFFH 

Id 

ADDRESS,#00 

WDT 


cali . 

WRITEMEMORY 

inc 

ADDRESS 

CP 

ADDRESS.#40H 

)' 

nz.WRITELOOPl 

Id 

ADDRESS,#00 

WDT 


call 

READMEMORY 

inc 

MTEMPH 

jf 

nz.MEMORYERROR 

inc 

MTEMPL 

) r 

nz.MEMORYERROR 

inc 

ADDRESS 

P 

ADDRESS.#40H 

jf 

nz.READLOOPl 

Id 

MTEMPH.OOOQH 

Id- 

MTEMPL.#OOOH 

Id 

ADDRESS,#00 

WDT 


caD 

WRITEMEMORY 


ADDRESS 

CP 

ADDRESS,#40H 

i r 

nz.WRrTELOOP2 

W 

ADDRESS,#00 


; flag set to error to start 
; set the skip radio flag 
; set the data to write 

; start at address 00 


; start at address 0 


; read the data 

; test the high 

; rf error mark 

; test the tow 

; if error mark 

; sel the next address 

; test tor the last address 


set the data to write 


; test tor the last address 
; start at address 0 
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WDT 



call 

READMEMORY 


cp 

MTEWPH.#00 


j' 

nz. MEMORYERROR 


CP 

MTEMPL.#00 


i' 

nz. MEMORYERROR 


inc 

ADDRESS 


CP 

ADDRESS,#40H 


jr 

nz,READLOOP2 


call 

CLEARCODES 


dr 

SKIPRADIO 


Clr 

RS232DO 

MEMORYERROR: 



ip 

VACSWOPEN 

TEST39: 




CP 

i r 

RSCOMMAND.#39H 
nz.SKIPRS232 


Id 

RSCOMMAND,#OFFH 


call 

SETLEARN 

SKIPRS232: 



cp 

R DEAD TIME.#20 


JP 

nz.MAINLOOP 


clr 

RAD IOC 


clr 

RFLAG 


IP 

MAINLOOP 


, read the data 

; test the high 

; if error mark 

, test the low 

; if error mark 

; sel the next address 

; test tor the last address 


: test memory 

; turn off command 


; test for too long dead 
; rf not loop 

; dear the radio counter 
: dear the radio flag 
; loop forever 


Radio interrupt from a edge of the radio signal 


srp #RADIO_GRP 

W riemph.TOEXT 

Id rtempl.TO 

tm IRQ.#O0O10O00B 

jr z.RTIMEOK 

tm rtempl.#i<yxx>OOOB 

jr z.RTIMEOK 

dec rtemph 

clr RJ3EADJNME 

and IMR,#11111110B 

Id rtimedh.rtimeph 

Id rlimedl.rtimep) 

sub rtimedJ.rternpl 

sbc rtimedh.riemph 

tm rtmedh,#lOOOOOOOB 

jr I.RTIMEDONE 

Id rtimedh.riemph 

Id rtimedl.rtempl 


; save the radio pair 
; set the register pointer 

; read the upper byte 

; read the lower byte 

; test lor pending int 

; # not then ok time 

; test for timer reload 

; if not reloaded then ok 

; if reloaded then dec high for sync 

; dear the dead time 

; turn off the radio interrupt 

; find the difference 


; in the past time and the past time in tern 
; tesl for a negitive number 
; if the number is not negitive then done 
; find the difference 
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MEASUREBLANK: 


rlimerll.rlimepl 
rtirnedh.rtimeph 


RINFILTER.#OFFH 

z.GOINACTIVE 

RADIO_EXIT 

IRQ .#010000008 

RINFILTER 

rtimeih.rtimedh 

rtimeil.rtimedl 

rtimeph.nemph 

rtimepl.rtempl 

RADlO_EXIT 

RINFILTER, #00H 

z.GOACTIVE 

RADlO_£XfT 

IRQ.#00111111B 

RINFILTER,#OFFH 

rtimeah.rtimedh 

rtimeal.rtimedl 

rtimeph.rtemph 

rtimepi.rtempf 


rtimeih,#nOD 

uglCLEARRADIO 

rtimeih.#40D 

ull.CLEARRADIO 

rtimeah,#03H 

ugl.SETREC3MS 

nz.SETRECIMS 

rtimeal.#09DH 

ug1.SETREC3MS 

RFLAG.#00010000B 

2.SETFIRST1MS 

RFLAG.#10111111B 

RFLAG,#00100000B 

radio3h 

radio3l 

INCCOUNT 

RFLAG.#01000000B 
radiolh 
radio 11 
INCCOUNT 


; in the past lime and the past time in temp 

: lest the port lor the edge 

; if ii was the active time then branch 

; test lor active last time 
: if so continue 
; if not the return 

: set the bit setting direction to pos edge 

; set flag to inactive 

; transfer difference to inactive 

; transfer temp into the past 


; test for active last time 
; if so continue 
; if not the return 

; dear the bit setting direction to neg edge 
; transfer difference to active 
; transfer temp into the past 


; test for blank time 

; if the count is not zero then we are in signal 

; test the timer for > 55mS 

; it > 55 then clear the radio 

; test the timer for < 20mS 

; if < 20mS then dear the radio 

; lest the sync pulse for a 3mS period first > 1 

: if 2mS or greater then 3mS sync code 

; if less then 1 then it is a 1 mS sync code 

; test for 1 .85 'middle value 2" 

: H greater then set a 3 

; test for the reception of the ImS code 
; if the bit is not set then this is the first 1ms 
; dear the flag so waiting into 3mS word 
; set the flag saying 2nd 1mS word 
; clear the last reception 


and RFI_AG,#10111111B 


; then inc the count tor Insignaf 


; set the flag for the first 1 mS word 
; clear the lasl reception 


; then inc the count lor insignaJ 

; clear the flag so writing Into 3mS word 
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Ctr 

radio3h 

dr 

radio3l 



K 

RADIO_EXIT 

pop 

RP 

iret 


cp 

rbmeah.#90 

iP 

ugl.CLEARRADIO 

CP 

rtimeih,#9D 

jP 

ugl.CLEARRADIO 

Id 

rtemph.rtimeih 


rtempl.rtimeil 

sub 

rtempl.riimeal 

sbc 

rtemph.rtirneah 

i r 

c.NEGDIFF 

=P 

rtemph.#OlH 


ugt.SETTOO 


ult.SETTOl 


rlempl O10O0OO00B 


2.SETT01 


SETTOO 

Id 

rtemph.rtirneah 

Id 

nempl.rlimeal 

sub 

rtempl.rtimeil 

sbc 

rtemph.rtimeih 

cp 

rtemph.#OlH 


ugt.SETT02 


ult.SETTOl 


rtempl.#l0000O0OB 


z.SETTOl 


SETT02 

Id 

RTEMP.#O0D 

i' 

INCRECORD 

Id 

RTEMP.#01D 

V 

INCRECORD 

Id 

RTEMP,#02D 


INCRECORD 


; clear the last reception 

; set the counter to the next word 

; reset the register pair 


; transfer pulse time to temp reg 

; subtract the pulse from the blank 

; if the difference is negitive then branch 

; test tor a number 1 

; il greater then set 0 

; if less then 1 set to 1 

; test for 80 or greater 

; il the diff is less then 80h 

; else set to a zero 

; transfer pulse time to temp reg 

; subtract the putse from the blank 

; test for a number 1 

; H greater then set 2 

: if less then 1 set to 1 

; test for 80 or greater 

: rf the drff is less then 80h one 

; else set to a two 


; set the bit value to a 00 
: goto adding into the record 


; set the bit vakii to a 01 
; goto adding into the record 


RFLAG.#01000000B 
Z.MS3RECORD 
rtemph, radio ih 
rtempl.radk>1l 
radio ll.rtempl 
radiolh.rtemph 
radio ll.rtempl 


test the radio flag for the area to be modifing 
if the bit is cleared then working the 3ms 
transfer the record to temp 

add the number to rt self 2* for lor base 3 
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adc 

radiolh.rtemph 

add 

radio Hrtemp 

adc 

radio1h.#OOh 

inc 

radioc 

cp 

radioc.#11D 


2.GOTAWORD 

IP 

ugl.CLEARRADIO 


RADIO EXIT 


MS3RECORD: 


rtemph,radio3h 

rlempl,radio3l 

radio3l.rtempl 

radio3h,rtemph 

radio 31, rtempl 

radio3h,rtemph 

radio 31. rtemp 

radio3h,#OOD 

radioc 

radioc. #1 1 D 

z.GOTAWORD 

RADIO_EXIT 


increase Ihe radio counter 
•est lor the last bit 
rf so we got a word 
else garbage 

else return till the nexl bit comes along 

transfer the record to temp 

add the number to it self 2* tor tor base 3 


add in the new value 

increase the radio counter 
lest for the last bit 
if so we got a word 

else return till the next bit comes along 


MARK3REC: 
DONEONE: 
TESTFORTWO; 


RFLAG.#01000OO0B 
2.MARK3REC 
RFUA,G.#OO010000B 
TESTFORTWO 


RFLAG,#OO01 OOO0B 

2, DONE ONE 

RFLAG,#O0O010O0B 

2. DONEONE 

RFLAG,#O010O0O06 

2.KNOWCODE 

RFUAG,#OO0OOO10B 

rtemp,#00 

2.KNOWCODE 

RFLAG,#O00O01O0B 

2ZWIN,#64D 
ugt.KNOWCODE 
STATE .#6 
2. time Z2 win 
STATE, #5 
2, time Z2 win 
STATE.#2 
2.timezzwin 
KNOWCODE 


; test the radio flag lor the area we just modif ing 
; if the bit is cleared then the 3ms is filled 
; set the tlag 

; jump to test for two codes 


; dear the radio counter 


; test for the 1mS word 

; we just have one code done 

; test for the 3mS word 

; we just have one code done 

; test the flag for BC 

; if A code we do nothing 

7 set the B and C flag 

; test word 10 for a 0 "C cob> 

; if a C code were done 

; set the B code flag 

; test for 8 seconds from known B code 

; if not skip test 

; test for the stopped state 

: H stopped test zzwin 

; test for the down limit 

: if at the down limit 

; test for at up limit 

; if at the limit jump 

; etee no way 
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radio3h.#90H 
nz.KNOWCODE 
radio3l.#29H 
nz.KNOWCODE 


lest (or ihe 00 code 
lesl for the 00 code 


RRTO 

SKiPRADIO,#0FFH 
z.CLEARRADIO 

ADDRESS,#1 EH 
READMEMORY 
VACFLAG.MTEMPH 
LEARNT.#0FFH 
z.TESTCODE 

PRADIOlH.radiolh 
nz, STOR E NOTMATC H 
PRADIOlL.radioll 
nz.STORENOTMATCH 
PRADI03H,radio3h 
nz.STORENOTMATCH 
PRADI03L,radio3l 
nz.STORENOTMATCH ; 
TESTCODES 
A D DR ESS , #OFFH 
nz.NOWRITESTORE ; 


; clear the got a radio (lag 
; test tor the skip flag 

; if skip flag is active then donot look at EE m 

; set the non vol address to the VAC flag 

; read the value 

; save into volital 

; test lor in learn mode 

; if out of learn mode then test for matching 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test the code to see if in memory now 

if there is a match pretend to store 


GOTAADDRESS: 


RFLAG,#O0OOO1 00B ; test for the b code 

nz.BCODE ; if a B code jump 

RFLAG. #0000001 OB ; test tor a C code 

nz.CCODE ; if a C code jump 


; set the address to read the last written 
; read the memory 
;add 2 to the last written 


ADDRESS,#1 FH 
READMEMORY 
MTEMPH 
MTEMPH 

MTEMPH.rmnnOB ; set the address on a even number 
MTEMPH.#17H ; test for the last address 

ult. GOTAADDRESS ; if not the last address jump 
MTEMPH.#00D ; set the address to 0 


ADDRESS, #1 FH 
RTEMP.MTEMPH 
MTEMPL, MTEMPH 
WRITEMEMORY 
ADDRESS. rtemp 
READYTOWRITE 

radio3h.#90H 


; set the address to write the last written 
; save the address 
; both bytes same 
; write it 

: set the address , 


; test lor the 00 code 
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BCODEOK: 


Id 


nr. BCODEOK 
radio 31, #29H 
nz. BCODEOK 
CLEARRADIO 


CCODE: 

Id 

READYTOWRITE: 

NOWRUESTORE: 
xor 

Id 
Id 
Clr 

JP 

STORENOTMATCH: 


ADDRESS,#1 AH 

WRITECODE 

p0.#WORKLIGHT 
ledport.Oledh 
LIGHT1S.#244D 
LEARNT, #0FFH 
RTO 

CLEARRADIO 

PRADIOlH.radiolh 
PRADlOlL.radioll 
PRADI03H.radio3h 
PRADI03L.racfio3l 
CLEARRADIO 


; test (or trie 00 code 

; SKIP MAGIC NUMBER 

; set the address tor the B code 

; set the address tor the C code 
; write the code in radio 1 and radio3 
; toggle light 

; turri~otf the LED (or program mode 
; turn on the 1 second blink 
; set leammode tinner 
; disallow cmd (rom learn 
; return 

; transfer radio into past 


FAULTFLAG,#OFFH 

Z.FS1 

ledport.#ledl 

TESTCODES 

FAULTFLAG.#OFFH 

i.FS2 

ledport.#tedh 

ADDRESS.#OFFH 

nz.GOTMATCH 

CLEARRADIO 

RFLAGJ00000001B 

RTO.#101D 

ult.NOTNEWMATCH 


; test (or a active fault 

; if a avtive fault skip led set and reset 

; turn on the LED tor flashing from signal 

; test the codes 

; test for a active fault 

; if a avtive fault skip led set and reset 

; turn of) the LED for flashing from signal 

; test for the not matching state 

; if matching the send a command if needed 

; else dear the radio 

; set the flag lor recieving without error 

; test for the timer time out 

; if the timer is active then do not reissue cmd 

; test lor the vacation mode 

; if not in vacation mode lest the system disable 


TSTSDtSABLE. 


SDISABLE.#32D 

ult.NOTNEWMATCH 

RTO 

ONEP2,#00 
nz.NOTNEWMATCH 


; lest for 4 second 

; if 6 s not up not a new code 

; clear the radio timeout 

; test for the 1 .2 second time out 

; if the timer is active then skip the command 


5.780.987 


RADIOCOMMAND: 


TESTCODES: 
NEXTCODE: 


NOMATCH: 
NOMATCH2. 


GOTNOMATCH: 


clr 

RTO 


ADDRESS. #19H 

if 

nz.BDONiTSET 

clr 

22WIN 

Id 

BCODEFLAG.#077H 


LAST_CMD 

Id 

RADIO CMD.OOAAH 

)' 

CLEARRADIO 

dr 

ADDRESS 

call 

READMEMORY 

CP 

MTEMPH.radiolh 

V 

02, NOMATCH 

CP 

MTEMPL.radio1l 

V 

nz, NOMATCH 

inc 

ADDRESS 

call 

READMEMORY 

CP 

MTEMPH.radio3h 

V 

nz.NOMATCH2 

cp 

MTEMPL.radio3l 

jf 

ri2.NOMATCH2 

ret 


inc 

ADDRESS 

inc 

ADDRESS 

cp 

ADDRESS.IMCH 
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; dear the radio timeout 

; test for a 6 code 

; if not a b code donot set flag 

; flag got matching B code 

; flag for aobs bypass 


; start address is 0 

; read the word at this address 
; test for the match 

; if not matching then do next address 
; test tor the match 

; if not matching then do next address 
; set the second hall of the code 
; read the word al this address 
; test for the match 

; if not matching then do the next address 
; lest for the match 

; if not matching then do the next address 
; return with the address of the match 


; set the address to the next code 

; set the address to the next code 

; test for the last address 

; if not the last address then try again 


ADDRESS.#0FFH 


NOTNEWMATCH: 


RTO 

RFLAG. #00000001 B 


; reset the radio time out 

; dear radio flags leaving recieving w/o error 

; clear the radio bit counter 

; set the leam timer turn or and backuD 

; return v 


CLEARRADIOA: 


IRQ.#00111111B 
RINFILTE R,#0FFH 

R FLAG, #00000001 8 

z.SKIPRTO 

RTO 


; dear the bit setting direction to neg edge 
: set flaj to active ^ ^ 

; test for receiving without error 

; if flag not set then donot clear timer 

; clear radio timer 
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; clear the radio count 
; clear the radio flag 
; return 


LEARN DEBOUNCES THE LEARN SWITCH SOmS 
TIMES OUT THE LEARN MODE 30 SECONDS 
DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 


#LEARNEE_GRP ; set the register pointer 
STATE, #DN_POS1TION Jest for motor stoped 
z.TESTLEARN 

STATE.#UP_POSITION ; test for motor sloped 


z.TESTLEARN 
STATE,#STOP 
z.TESTLEARN 
learnt, #0FFH 
learnt. #240D 
nz.ERASETEST 
leamoff 

leamdb,#236D 


; test for motor sloped 

; set the learn timer 

; test for the learn 30 second timeout 

; if not then test erase 

: if 30 seconds then turn off the learn mode 

; test for the debounoed release 


ru.LEARNNOTRELEASED ; it the debouncer not released then jump 
Jeamdb ; clear the debouncer 


LEARNNOTRELEASED: 


ERASETIMING: 



leamt,#0FFH 

k 

nz.lNLEARN 

cp 

leamdb,#20D 

v 

nz.ERASETEST 

clr 

leamt 

Id 

leamdb,#0FFH 

and 

ledport.tfedl 

clr 

VACFLAG 

Id 

address,#1EH 

clr 

mtemph 

dr 

mtempl 

Id 

skipradio,#0FFH 

call 

WRITEMEMORY 

clr 

skipracio 

cp 

leamdb,#0FFH 

ff 

ru.ERASERELEASE 

cp 

eraset.dfOFFH 

j' 

nz.ERASETIMING 

dr 

eraset 

cp 

eraset.#48D 


z.ERASETIME 


; test for learn mode 

; if in learn jump 

; test for debounce period 

: rf not then test the erase period 

; dear the learn timer 
; set the debouncer 
; turn on the led 
; clear vacation mode 
-; set the non vol address for vacation 
; dear the data for cleared vacation 

; set the flag 

; write the memory 

; dear the flag 

; test for team button active 

; If button released set the erase timer 

; test for timer active 

; if the timer active jump 

; dear the erase timer 

; test for the erase period 
; rf timed out the erase 
; else we return 



Of 

ledport,#ledh 

: turn oft the led 

Id 

Skipradio.HrOFFH 

: set the flag to skip the radio read 

call 

CLEARCODES 

; clear all codes in memory 

clr 

skipradio 

; reset the flag to skip radio 

Id 
ret 

learm,#OFFH 

: set the team timer 


ERAS ERE LEASE: 


eraset.#OFFH 


TESTLEARNTIMER: 


learndb.#20D 

nz, TESTLEARNTIMER 

leamdb,#OFFH 


test tor the de bounce period 

it not then test the leam timer for lime out 

set the leam db 


ledport.#ledh 
leamt.ffOFFH 
leamdb.#OFFH 
ERASETEST 


; turn oft the led 
; set the leam timer 
; set the leam denounce 
; test the erase timer 


; WRITE WORD TO MEMORY 
; ADDRESS IS SET IN REG ADDRESS 
: DATA IS IN REG MTEMPH AND MTEMPL 
; RETURN ADDRESS IS UNCHANGED 

WRITEMEMORY: 


push 

RP 

sip 

#LEAflNE6_GRP 

call 

STARTB 

Id 

serial.#00110000B 

call 

SERIALOUT 

and 

csport.tcsl 

call 

STARTB 

Id 

serial.#01000000B 


serial .address 

call 

SERIALOUT 

Id 

serial.mtemph 

call 

SERIALOUT 

Id 

serial, mtempl 

call 

SERIALOUT 

call 

ENDW/RITE 

call 

STARTB 

Id 

Serial.#OOO0O0OOB 

call 

SERIALOUT 

and 

cspon.#csi 


; SAVE THE RP 

; set the register pointer 

; output the start bit 

; set byte to enable write 

.-output the byte 

; reset the chip select 

; output the start bit 

; set the byte for write 

; or in the address 

; output the byte 

; set the first byte to write 

; output the byte 

: set the second byte to write 

; output the byte 

; wait tor the ready status 

; output the start bit 

; set byte lo disable write 

; output the byte 

; reset the chip select 
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. reset the RP 


; READ WORD FROM MEMORY 

: ADDRESS IS SET IN REG ADDRESS 

: DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

; ADDRESS IS UNCHANGED 


READMEMORY. 


push 

RP 

srp 

#LEARNEE_GRP 

call 

STARTB 

Id 

seriaJ,#100OOOO0B 


serial.address 

call 

SERIALOUT 

call 

SERIALIN 

Id 

mtemph.serial 

call 

SERIALIN 

Id 

mtempl. serial 


cspon,#csl 

pop 

RP 

ret 



set the register pointer 

output the start bit 
preamble tor read 
or in the address 
output the byte 
read the first byte 
save the value in mtemph 
read teh second byte 
save the value in mtempl 
reset the chip select 


: WRITE CODE TO 2 MEMORY ADDRESS 
I.?.?.?.!.!?, '^.^i?. 1 .? RADIOIL RADI03H RADKD3L 


#LEARNEE_GRP 
mtemph, RADIOIH 
mtempl, RADIOIL 
WRITEMEMORY 
address 

mtemph. RADI03H 
mtempl,RADl03L 
WRITEMEMORY 


se: the register pointer 

transfer the data from radio 1 to the temps 

write the temp bits 
nert address 

transfer the data from radio 3 to the temps 


:.?.!:. E .f R ALL RADI ° codes in the memory 


push 

RP 

srp 

#LEARNEE GRP 

Id 

RADI01 H.OOFFH 

Id 

RADI01L#OFFH 

Id 

RADIO3H,#0FFH 

Id 

RADIO3L.#0FFH 

Id 

address. #OOH 

call 

WRITECODE 


set the register pointer 

set the codes to illegal codes 


dear address 0 
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address 
address. 01BH 
ull CLEARC 
mlemph 
mlempi 
address.#1FH 
WRITEM EMORY 
RP 


; clear data, 
: dear address F 


; START BIT FOR SERIAL NONVOL 

: ALSO SETS DATA DIRECTION AND AND CS 


and 

csport.#csl 


clkport.#clockl 

and 

dioport,#dol 

Id 

P2M,#(P2M_INiT+0) 

or 

csport.#csh 


dioport.#doh 

or 

clkport.#dockh 

and 

dkport.#clockl 

and 

dioport,#dol 


; END OF CODE WRITE 


start by clearing the bits 

set port 2 mode forcing output mode data 

sel the chip select 

set the data out high 

set the clock 

reset the clock low 

set the data low 

return 


ENDWRITELOOP: 


temph.dioport 

temph,#doh 

2. ENDWRITELOOP 

csport,#csl 

P2M.#(P2M_INIT+0) 


; reset the chip select 
; delay 

; set the chip select 

; sel port 2 mode forcing input mode data 

; read the port 
; mask 

; if the bit is low then loop till we are done 

; reset the chip select 

; set port 2 mode forcing output mode 


SERIAL OUT 

OUTPUT THE BYTE IN SERIAL 


SERIALOUT: 

Id 
Id 

SERIALOUTLOOP: 
rlc 

ONE OUT: *' 


P2M.#(P2MJNiT+0) 
tempi. #8H 


; set port 2 mode tordng output mode d 
. set the count tor eight bits 


; get the bit to output into the carry 
; output a zero if no carry 


; set the data out high 
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clkport.#clockh ; s©1 the clock high 

clkpon.ffclockl ; reset the clock low 

dioport.#dol ; reset the data out low 

tempi, SERIALOUTLOOP 

; loop till done 


dioport,#dol 
clkport.#cHockh 
clkport,#dockJ 
dioport.#dol 


tempi, SERIALOUTLOOP 


; reset the data out low 
; set the clock high 
; reset the clock low 
; reset the data out low 


; SERIAL IN 

; INPUTS A BYTE TO SERIAL 


SERIALIN: 

Id 
Id 

SERIALINLOOP: 


P2M,#(P2M_INIT+4) 
templ,#8H 


clkport.#clockh 


lemph.dioport 

temph,#ooh 

z.DONTSET 


; set port 2 mode forcing input mode data 
; set the count for eight bits 

; set the dock high 
: reset the carry flag 
; read the port 
; mask out the bits 


serial ; 
clkport,#clockl ; 
tempi, SERIALINLOOP 


JJM^F? UPDATE FROM INTERUPT EVERY 1mS 


I?f£L... T : decre,nen1 ^ TO extension 

TASKSWITCH ; set to the next switch 

TASKSWITCH.#0OOO0111B ;0-7 

TASKSWrrCH.#OO0OOO01B ; test for odd 

«TK1357 : rf so then jump 

TASKSWITCH.#2d • test for 2 
2.TASK2 

TASKSWITCH.#4d : test for 4 
2.TASK4 

TASKSWITCH.#6d ; test for 6 
Z.TASK6 

or IMR.#flETURN_IMR ; turn on the interrupt 

n> ; save the rp 


75 


5.780.987 


TASK4. 

TK1357: 
TASK5. 

enable Ji: 

continue: 
TASK6: 


#TlMER_GROUP ; set the rp for the switches 
s*"tches : test the switches 


IMR.#RETURN_IMR 


push 
srp 
call 
pop 


; turn on the interrupt 

: save the rp 

; do the motor function 
; return the rp 


or IMR.#RETURN_IMR 
ei 

push rp 

srp #TIMER_GROUP 

call switches 

pop rp 
iret 


; turn on the interrupt 
; save the rp 

; set the rp for the switches 
; test the switches 


cp TASKSWITCH.005D 
jp nz,TASK1357EXIT 


cp PWM_STATUS,#OFFH 

jr ne.enablejl 

dec PWM_OFF 

jr nz, continue 

•d PWM_STATUS,#OOH 

Id PWM_0FF,#14H 

or p3.#PWM_HI 

or tmr.#TIMER_1_EN 

IP TASK1357ExrT 


or IMR,#RETURN_IMR 
ei 

push rp 

srp #TlMER_GROUP 

call STATEMACHINE 

pop rp 


; test for task 5 

; discharge for at leasl 2x 

; take pwm pin high 
; enable 11 

; EXIT UPDATING TIMERS 

; turn on the interrupt 

; save the rp 

; do the motor function 
; return the rp 


TASK1357EXIT 

push RP 
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IMR.#RETURN_IMR , turn on the interrupt 

RS232 ; do the rs232 buss 

TASKSWITCH.#OO0OO0O1 B ; test lor state a 1 in bo 
z.ONEMS 

TASKSWITCH,#OO0O00l OB ; test for state a 1 in bl 
z.ONEMS 

#TIMER_GROUP ; if a 3 of 7 then do the auxlight 


#LEARNEE_GRP 

AOBSTEST 

nz.NOFAIL 

AOBSTEST.#11d 

AOBSF.#00000001b 

Mms 
11 25ms 
l4ms,#4D 
nz.TESTl25 

14 ms 

RPMONES.WOH 
z.TESTPERIOD 


; set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then rt didnot fail 

; il it failed reset the timer 

; set the failed flag bit 

; increment the 4mS timer 
; increment the 1 25 mS timer 
; test for the time out 
; if not true then jump 

; reset the timer 

; test tor the end ot the one sec timer 
; if one sec over then test the pulses 
; over the period 
; else decrease the timer 


TESTPERIOD: 


RPMTDONE 

RPMCLEAR.#OOH 
nz, RPMTDONE 
RPMCLEAR,#122d 
RPM COUNT,#50d 
ugt.FAREV 


: test the clear test timer tor 0 

: if not timed out then skip 

; set the dear test time for next cycle .5 

; test the count lor too many pulses 

; if too man pulses then reverse 


FAULTCOOE.#06h ; set the fault flag 
FAR EVFLAG,#088H ; set the forced up flag 
pO.#*LB *C WORKLIGHT ; turn off light 
~" ; rpm forcing up motion 


RPMCLEAR 
LIGHT 1S, #00 
z.SKIPLIGHTE 
LIGHT1S 


; down count the light time 
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PRSWGLOSED: 


LEARNDBOK: 
TEST125. 


N125: 
ONE25MS: 

SKIPAUXLEARNSW: 


R_DEAD_TIME 
RTO,#101D 
ult.DONOTCB 
BCODEFLAG 

RTO 

ru.RTOOK 
RTO 

RRTO,#OFFH 
2.SKIPRRTO 
RRTO 

lemp.psport 

1emp.#psmask 

z.PRSWCLOSED 

leamdb,#00 

z. LEARNDBOK 

leamdb 

LEARNDBOK 


leamdb 
teamdb.#0H 
nz, LEARNDBOK 
leamdb 


t125ms.#125D 

Z.ONE25MS 

t125ms,#63D 

nz.Nl25 

FAULTB 


: test tor the radio time out 
; if not limed put donot dear b 
; else clear the b code flag 

; increment the radio time out 
: it the radio timeout ok then skin 
; back turn 

; test tor roll 
; it so then skip 


; read the program switch 

: mask (or switch 

; ii the switch is closed count up 

; test tor the non decrement point 

: if at end skip dec 


increase the learn deoounce timer 

lest lor overflow 

if not 0 skip back turning 


; test tor the time out 

; it true the jump 

; test lor the other timeout 


AUXLEARNSW.WFFh ; test for the rollover position 
Z.SKIPAUXLEARNSW ; if so then skip 
AUXLEARNSW ; increase 


ZZWIN,#0FFH 

z.TESTFA 

ZZWIN 

FAULTB 
1125ms 
DOG2 

SDISABLE 

nz,DOl2 

SDISABLE 


: test for the roll position 
; if so skip 

; if not increase the counter 

; call the tauH blinker 
; reset the timer 

; incrwease the second watch dog 

; count off the system disable timer 
; if not rolled over then do the 1 .2 sec 
: else reset to FF 

; test for 0 

; if counted down then increment learn 
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dec 

ONEP2 

■ 



leamt.#OH 


nz.LEARNTOK 


learnt 

ei 
inc 

eraset 

pp 

erase1,#0H 


nz,ERASETOK 

dec 

eraset 

pop 

RP 

irel 



rAULTTIME 


F A U LTTI M E ,#80h 

ir 

nz.FIRSTFAULT 


FAULTTIME 

clr 



FAULTCODE.#05h 


UGE.GOTFAULT 

cp 

CMD_DEB,#OFFH 


nz.TESTAOBSM 

P** 

FAULTCODE,#03h 


z.GOTFAULT 

Id 

FAULTCODE,*03h 

if 

FIRSTFAULT 

tm 

AOBSF.#00000001b 

tin 

z.NOAOBSFAULT 


AOBSF.#00000010b 

jr 

z.NOPULSE 

Id 

FAULTCODE,#04h 

V 

GOTFAULT 

cp 

FAULTCODE,#04h 

jf 

z.GOTFAULT - 

Id 

FAULTCODE.#04h 

jr 

Fl* tSTFC 

tm 

P3.#00000001b 

i T 

z.AOBSSH 

cp 

FAULTCOOE.MIh 

jr 

z.GOTFAULT 

Id 

FAULTCODE.#01h 

jr 

FIRSTFC 

cp 

FAULTCODE.#02h 

jr 

z.GOTFAULT 

Id 

FAULTCODE,#02h 

jr 

FIRSTFC 

Id 

FAULT.FAULTCODE 


; else down count 


; il not 0 skip back turning 


increase the erase timer 

test lor overflow 

if not 0 skip back turning 


; increase the fault timer 

; test tor the end 

; if not timed out 

, reset the clock 

; dear the last 

; test for call dealer code 

: set the fault 

; test the debouncer 

; rf not set test aobs 

; test for command shorted 

; set the error 

; set the code 


; test for the skiped aobs pulse 

; rf no skips then no faults 

: tesl for any pulses 

; rf no pulses find if hi or low 

; else we are intermittent 

; set the fault 

; if same got fault 

; test the last fault 

; if same got fault 


; test the input pin 

; jump if aobs is stock hi 

; test for stuck low in the past 

; set the fault 

; set the fault code 

; test tor stuck high in past 
; set the fault 
; set the code 
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NOAOBSFAULT: 

FIRSTFC: 

FIRSTFAULT: 


FAULT,#O0 
z.NOFAULT 
FAULTFLAG,#OFFH 
LEARNT, #0FFH 
nz.TESTSDl 
FAULT. FAULTTIME 
ULE.TESTSDI 

FAULTTIME.#00001000b 
nz.BITONE 
ledport.#)edJ 


; test for no faun 


; if in learn then skip setting 


turn on the led 


BITONE 
TESTSDL 


; turn off the led 


MOTOR STATE MACHINE 


STATEMACHINE: 



RS232 

xor 

p0,#OOO010OOb 

dec 

FORCE_PRE 

cp 

DOG2.#8d 

jp 

ugl. START 

cp 

STATE. #06d 

jP 

ugt.start 

IP 

z, stop 

cp 

STATE. #03d 

IP 

z.st art 

cp 

STATE,#OOd 

jP 

z.auto rev 

cp 

STATE.#01d 

jp 

z.up_direction 

cp 

STATE,#02d 

ip 

z,up_posriion 

cp 

STATE.#04d 

jp 

z.dn_direction 

jp 

dn_position 


; toggle aux output 

; dec the prescaler 

; test the 2nd watchdog for problem 

; if problem reset 

; test for legal number 

; if not the reset 

; stop motor 6 

; test for legal number 

; if not the reset 

; test for autorev 

; auto reversing 0 

; lest for up 

; door is going up 1 
; lest for autorev 
; door is up 2 
; test for autorev 


; AUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 



AUXLIGHT. 
lestjighton 


dec_pre_lighl: 


itjight: 


LIGHT_Fl_AG.#LIGHT 

2.dec_ j pre_ligh) 

LIGHT1S.#00 

z.NOlS 

LIGKTlS,#01d 

ni.NOlS 

pO.#WORKLIGHT 

LIGHT1S 

flash_flag,#flash - 

nz, dec_pre_light 
FLASH_DEl_AY 
nz,dec_pre_light 
pO.OWORKLIGHT 

flash_delay_hi,#flash i 
flash_delay lo,#flash" 
flash_counter 

oz.dec_pre_Hght 
FLASH_FLAG 

UGHT_TIMER_HI.#OFFH 

z.exrtlight 

PREJJGHT 

nz.exit lighi 

LIGHTJTIMER 

nz.exitjight 

pO.#«C LIGKT_ON 


; test tor no dash 
: if not skip 
; test for timeout 
; if not skip 
; toggle light 
; oneshoted 


250 ms period 
toggle light 


; test for the timer ignore 
; if set then ignore 
doc 3 byte light timer 

H timer 0 turn off the light 
turn off the light 


AUTO_REV ROUTINE 


IEAVEREV: 


FAREVFLAG.#088H 

nz.LEAVEREV 

pO,#'LB "C WORKLIGKT 

FAREVFLAG 


HOLDFREV 
LIGKT_FLAG,#LIGHT 


; test lor the forced up flag 

; turn off light 
; one shot temp test 

; kick the dog 

; hold off the force reverse 
; force the light on no blink 


AUTO_DELAY 
BAUTO_DELAY 


; waft for .5 second 
; wait for .5 second 


p0,#00001000b 


; set aux output for FEMA 


87 


5.780.987 


88 



p2.#UP LIMIT 

i f 

nz.NOUPLlM 

LD 

REASON.#60H 

jP 

SET_STOP_STATE 

Id 

REASON.440H 

IP 

SET_UP_DlR_STATE 

Id 

REASON. »OOH 

CP 

SW_DATA,#CMD SW 

JP 

2. SET STOP STATE 

id 

REASON.#10H 

CP 

RADIO CMD.#OAAH 

IP 

z.SET STOP STATE 

ret 



: test the limit 

: il limit set stop 

; set the reason as early limit 

; set stop 

; set the reason for the change 
; set the state 

" ; set the reason to command 
; test tor a command 
; il so then stop 

; set the reason as radio command 
; tesl for a radio command 
; il so the stop 

: return 


; set the hold oft 

; clear rpm reverse .5 sec 


DOOR GOING UP 


up_direction 


UPON. 
UPOFF. 


HOLDFREV 

LlGHTFLAG, OUGHT 

pO # A LB *C MOTOR_DN ~ 

MOTDEUrOFFH 
2, UPON 
MOTDEL 
pO.StlGHT ON 
MOTDEL, #2 Od 
ule.UPOFF 


; kick the dog 
; how oft the force reverse 
; toroe the light on no blink 
: disable down relay 

; test tor done 

: if done skip delay 

; increase the delay timer 

; turn on the light 

: test for 40 seconds 

; if not timed 


PO.#MOTOR_UP *| #LK3MT_ON ; turn on tie motor and light 


FORCE_IGMORE,#01 

ru.SKIPUPRPM 

RPM_ACOUNT,#02H 

ufll.SKIPUPRPM 

FAULTCODE.«05h 

F OR CE_ IGNORE, #00 ^ 
ru,tesi_up_sw _pre 


; test fro the end of the force ignore 
; if not donot test rpmcount 
; test for less the 2 pulses 


; test timer for done 

; if timer not up do not test torce 
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lesi_up_s*_pre: 


i,failed_up_rpm 

; turn of) the inlermpt 
RPM_SET DIFF_LO.UP FOR_£E LO 
RPM_SET DlFF_HI,UP_"F0R6EjHI 
RPM SET_DIFF LO.RPM PERIOD LO 
RPM_SET DIFF HI.RPM_PERIOD HI 
RPM_SET^DIFF_HI,#1OOOD00OB ~ ; test high brt Ic 


z,tesl_up_s 


FORCE_PRE.#00000001 B 
nz,tes1_up_sv* 


; it the rpm period is ok then switch 
; set the reason as lores 


p2.#UP_UMIT 

z.upjimrt_<Jec 

limit. #LIM1T_COUN"r 

oet_sw 

limit, get sw 
REASON. #50H 
SET_UP_POS_STATE 

REASON,#10H 
RADIO_CMD.#0AAH 
z.SET_STOP STATE 
REASON, #00 H 
SW_DATA.#CMD_SW 
ne.test_up time 
SET_STOP_STATE 

REASON, W70H 
MOTOR_TIMER 
tSET STOP.STATE 


; set the radio command reason 
; test lor a radio command 
; it so stop 

; set the reason as a command 
; test tor a command condition 


; return to caller 


FAREVFLAG.#088H 
nz.LEAVELrGHT 
pO,#*LB *C WORKLIGHT 
UPNOFLASH 


; test tor the lorced up flag 
; turn of) light 

; skip clearing the flash flag 



SETDNDIRSTATE: 


LIGHT_FLAG,#O0H ; allow blink 

limit. #LIMIT_COUNT 

?°. #A ir?_ A 9 MOTORJJP #»c' MOTOR_DN ; disable motor 
light sw debounced? 


SW_DATA,#LIGHT_SW 
z,work_up 
REASON,#10H 
RADIO_CMD,#0AAH 
2, SETDNDIRSTATE 
REASOM.#00H 
SW_DATA.#CMD_SW 
z. SETDNDIRSTATE 


; set the reason as a radio command 

; test for a radio cmd 

; if so start down 

; set the reason as a command 

; command sw debounced? 

; if command 


; set the 1.2 sec timer 


work_up: 
up_pos_ret: 


pO.#WORKLIGHT 
LtGHT_TlMER_HI,#OFFH 


DOOR GOING DOWN 


; toggle work light 
; set the timer ignore 


dn_direction: 


HOLDFREV 

FLASH FLAG 

LIGHT_FLAG.#LIGHT 

pO.# A LB *C MOTOR UP 

MOTDEL,#0FFH 

z.DNON 

MOTDEL 

pO,#LIGHT_ON 

MOTDEL.#20d 

ute.DNOFF 


; kick the dog 

: hold off the force reverse 

; turn off the flash 

; force the light on no blink 

; turn oft motor up 

; test for done 

; if done skip delay 

; increase the delay timer 

; turn on the light 

; test for 40 seconds 

; if not timed 


pO.#MOTOR_DN *| #LlGHT_ON ; turn on the motor and light 


FORCEJGNORE.#01 

nz.SKIPDNRPM 

RPM_ACOUNT.#02H 

ugt.SKIPDNRPM 

FAULTCODE.#05h 

FORCEJGNORE.#00 
nz, test_dn_sw _pre 
ForcedDown.#1h 
z.test_dn_sw_pre 


test Iro the end of the force ignore 
if not donot test rpmcount 
test for less the 2 pulses 


; test timer for done 

; if timer not up do not test lorce 

; test the flag to skip rpm d forcing d 


TE ST_DOWN_FORC E : 
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*ailed_dn_rpm: 

Ic 

test_dn_sw_pre: 


RPM_T!ME_OUT 
BRPM_TIME_OUT 


; decrease the timeout 
: decrease the timeout 


z,(ailed_dn_rpm 

RPM ^ET.DIFFJ.O.DN.FORCeTo 0 '' ^ 
RPM_SET_DIFF_HI,DN_FORCE HI 
RPM_SET_DIFF_LO.RPM_PERIOD LO 
RPM_SET_DIFF_HI,RPM PERIOD HI 

zTesfdn T rw D,FF - HUlOO50OO ° B , ^ ; <«< «* for sign 

- - 'he rpm period is ok then switch 


REASON.#20H 

S E T_ A R E V_ST ATE 

FORCE_PRE.#00000001 B 
nz,tesl_dn_sw 

FORCEJGNORE 
BFORCE_IGNORE 


; set the reason as force 
; set the stale 

; test tor odd 12 
; it odd skip 


dn_limit_dec: 


djnz 


TESTRADIO: 


id 

TESTFORCEIG: 


NOAREVDN. 


p2.#DN_LIMIT 

z,dn_limit_dec 
limit.#LIMIT COUNT 
call_sw_dn ~ 

limit,call_sw_dn 

REASON.#50H 

CMD_DEB.#0FFH 

nz, TESTRADIO 

REASON,#90H 

TESTFORCEIG 

LAST_CMD,#00 

nz.TESTFORCElG 

BCOOEFLAG,#077H 

nz.TESTFORCElG 

REASON,#0A0H 

ForcedDown,#00 

nz.NOAREVDN 

FORCE_K3NORE.#00H 

z.NOAREVDN 

REASON.#60h 

SET_AREV_STATE 

pO.#*LB A C MOTOR ON 
SET_DN_POS_STATE 

REASON,#10H 
RADIO_CMD,«0AAH 
Z.SET_AREV_STATE 
REASON.#00H 
SW_DATA.#CMD SW 


dec debounce counter 
set the reason as a limii 
tesi tor the switch still held 

closed with the control held 


; lest for the b code flag 

; set the reason as b code to limit 

; test lor force down action 

; if set skip early limits 

; test the force ignore lor done 

; a rev H limit belore force enabled 

; early limit 

; set autof averse 

; set the state 

: set the reason as radio command 
; test for a radio command 
; H so arev 

; set the reason as command 
; lest lor command 



lest_dn_time: 


dec_obs_oount: 


i,SET_AREV_STATE 

REASON.#70H 
MOTOR TIMER 
z,SET_AREV_STATE 

obs_count.exi1 dn_dir 
LAST CMD,#O0 
z.OBSTESTB 
CMD_DEB.#OFFH 
nz.OBSAREV 


FLASH_FLAG.#OFFH 
FLASH_COUNTER,#20 


; dec aux obs count 

; test lor the last command from radio 

; if lasl command was a radio test b 

; test for the command switch holding 

; if the command switch Is not holding 

: do the aulorev 

; otherwise skip 


: set flag 

. _ — ■ . .,~«.« ; set for 10 flashes 

. FLASH_DELAY_HI,#FLASH_HI; set for .5 Hz period 
FLASH_DELAY_LO.#FLASH_LO 

REASON,#30H i set the reason as a ulore verse 

SET_AREV_STATE 


:do_reverse: 
t_2_dn: 


REASON.#OB0H 

FAREVFLAG,#088H 

nz.exit_2_dn 

CMD_DEB,#OFFH 

z.exit_2_dn 

LAST_CMD.#00 

nz.do_reverse 

BCODEFLAG.#077H 

z,exit_2_dn 

SET_AREV_STATE 


; set the reason as command not held 

; test forced up flag 

; if the forced up flag dear skip 

; test for a held command 

; if the command is held keep going 

; test lor the last command being radio 

; if not do reverse 

; test for the b code flag 

; if set skip till either is released 

; set the autoreverse state 


DOOR DOWN 


FAR E VFLAG ,#088H 

nz.DNLEAVEL 

p0.#*L8 »C WORKLIGHT 

DNNOFLASH 


; kick the dog 

; test lor the forced up flag 


; turn off light 

; skip clearing the flash flag 


cp ForcedDown,#01d 

jr z.TestMotorRev 

cp MOTOR_TIMER.#00d 

jr z.TestMotorRev 

decw MOTORJTIMER 

cfr RPM_ACOUNT 


; test for force in past 

; if so the test motor motion 

; test for timed out 

; if timed out then test rev. 

; decrement motor timer 

; dear the rpm counter 
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TestMotorRev: 


SkipLock: 
DNLEAVEL: 


SkipLock 

p2.#DN_LIMrT 

2.SkipLock 

RPM_ACOUNT.#l0d 

ule. SkipLock 

ForcedDown.#1h 

SET_DN_DIR_STATE 


LIGHT_FLAG,#OOH 

limit.#LIMIT_COUNT 

pO.*TLB *C MOTOR_UP 

SW_DATA.#LIGHT_SW 

z,work_dn 

REASON,#10H 

RADJO_CMD.#0AAH 

z.SETUPDIRSTATE 

REASON.#00H 

SW_DATA,#CMD_SW 

2.SETUPDIRSTATE 


; skip the lock till 27 sec timeout 

, is the down limit still set 
; then skip the lock down 
; test (or 2 rev 
; H less skip the lock down 
; set the Hag to skip early limits 
; force the door down to lim 


'&-#*C MOTOR_DN ; disable motor 
: de bounced? light 

: set the reason as a radio command 
; test for a radio command 
; if so go up 

; set the reason as a command 
; command sw pressed? 
;i1sogoup 


SETUPDIRSTATE: 


ONEP2,#10D 
SET_UP_DIR_STATE 


;sel the 1.2 sec tinner 


pO.lfWORKLIGHT 
LIGHT_TIMER_HI,#OFFH 


; toggle work light 
; set the timer ignore 


LEAVESTOP: 


FAREVFLAG.#088H 
nz.LEAVESTOP 
pO,«TLB *C WORKLIGHT 

LIGHT_FLAG,#OOH ; allow blink 
pO,# A Lfl *C MOTOR_UP *» #*C MOTOR DN 
SW DATA Mi WNT Cul/ . -i- 1 - ^ .- 


; kick the dog 

; test for the forced up flag 
; turn off light 


SW_DAT A , #L K3HT_SW 
z,wonV_stop 
REASON.#10H 
RADIO_CMD.#0AAH 
z,SET_DN_DIR_STATE 
REASON.#00H 
SW_DATA.#CMD_SW 
z,SET_DN_DIR_STATE 


. w, , uEMooie moior 

; debounced? light 

; set the reason as radio command 
; test for a radio command 
;H so go down 

; set the reason as a command 
; command sw pressed? 
; if so go down 


pO,#WORKLIGHT 
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LIGHT_TIMER_HI.#OFFH ; set »he timer ignore 
; return 


SET THE AUTOREV STATE 

SE T_ARE V_ST ATE : 
di 

Id STATE,#AUTO_REV : it we got here, then reverse motor 

|r SET_ANY 


SET THE STOPPED STATE 


SET STOP_STATE; 

di 

Id STATE.#STOP 

jr SET ANY 


SET THE DOWN DIRECTION STATE 


energize door 
one shot the forced reverse 
are we at down limit? 
rf not at limit set dn 
else set the dn position 


SET DN_POS_STATE. 

d 

Id STATE.#DN_POSmON ; load new state 

jr SET_ANY 


SET_DN_DIR_STATE: 


STATE.#DN_DIRECTION 
FAREVFLAG 
p2,#DN_LIMIT 
nz.SET_ANY 


SET THE DOWN POSITION STATE 


SET THE UP DIRECTION STATE 


SET_UP_DIR_STATE: 


ForoedDown 

STATE,#UP_DIRECTION 

p2,#UP_LIMrT 

nz.SET_ANY 


SET THE UP POSITION STATE 


SET_UP_POS_STATE: 


STATE,#UP_POSmON 


; clear the flag tor ski ping early limit 

; have we reached the limit? 

; if not set the state 

; else fall throught and set pos state 



SET AMY STATE 
SET_ANY: 

W BSTATE.STATE : se, the backup state 

2 SKI ;C.ear,herpmco U n, & r 

clr RADIO CMD • one shot 

? IBMSSTcouw !— 

Id MOTORJTIMER HI.#MOTOR HI 

Id MOTOR_TIMER_LO.#MOTOR" LO 

S USfSSGSSS* 80 " " ^vethe temp reason 

TURNONUGHT: * At,KFLAG.#OFFH ; sel the flag 

Id LIGHT_TIMER_HI,#SET TIME HI • set the lioht oariort 

Id LIGHT_TIMER_LO.#SEf TIME" LO '■ ^ 

Id PRE_LK3HT.#SET TIME~PRE ~ 

Id LIGHTS.PO " ~ read thi» 

and LIGHTS.#WORKLIGHT ; the l.ght state 

ligh.otl: V rUJiBh,0n the light is on skip clearing 

lighten: dr MOTDeL ; dearthe motor delay 


-.T. H l S .L H f_ A . UXILARYOBSTRUCT,ON 'NTERRUPT ROUTINE 


Stn^Mif 0 ; reset pulse counter (no obstruction) 

AOBSF.#0000001 OB ; set the flag lor got a aobs 

; return from int . 


RPMTIMEERROR: 


THIS IS THE MOTOR RPM INTERRUPT ROUTINE 

otT #RPU ftnrViP : save current pointer 

srp #RPM_GROUP ; poiril , 0 these refl 

ld r- ^-^! ^ EXT ; read the timer ertension 

id rpmJemp_lo,TO • read the timer 

^ "StSSiS 6 ^-^V^^errupt 

RPMTIMEOK ; if not then time ok 
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RPM_TlME_FOUND: 


rpmjemp Jo.#1 OOO0O00B 

z.RPMTIMEOK 

rpm_temp_hi 

imr.#11111011b 

rpm_2pasl_hi.rpm _past_hi 
rpm_2past_lo , rpm_past_lo 
rpm _past_hi.rpm_temp_hi 
rpm_past_lo.fpm_temp_te 
rpm_ditf _hi ,rpm_2 past Jhi 
rpm_diffjo,rpm_2pasl_lo 
rpm_diff_lo.rpm_pastJo 
npm_diff_hi,rpm_past_hi 
rpm_ditl hi .# 10000000b 
z.RPM_TIME_FOUND 
rpm_ditf_hi , rpm_past_hi 
rpm_diff_lo , rpm_past_k) 
rpm_diff_k>,rpm_2past_lo 
rpm_ditf_hi,rpm_2past_hi 

rpfn_period_hi.rpm_<fi»i_hi 
rpm _period_k>.rpm_dirl_lo 


test lor timer reload 

it no reload time ts ok 

H reloaded then dec the hi to resync 

turn ofl the inlerupt tor up to 500uS 

save the past tor testing 

transfer the present into the past 

transfer the past into the difference 

find the difference 

test for neg number 

if the time is correct then jump 

transfer the temp into the difference 

find the difference 

transfer the difference to the period 


rpm _period_hi,#12D 

ult.SKIPC 

STATE.#OSh 

z.CLRC 

STATE.#02H 
nz.lNCRPM 
P2.#UP_LIMIT 
nz.lNCRPM 


: test for a period of at least 6.144mS 
; if the period is less then skip counting 
; test for the down Smrt state 
; if set clear the counter 

; test for the up limit state 

; if not then increment the rpm state 

; test lor the up limit still set 

; H not then set 

; dear the rpm counter 


RPM COUNT 

BRPM_COUNT 

RPM_ACOUNT 

RPM_ACOUNT 


i increase the rpm count 
; increase the rpm count 
; increase the rpm count 


; set the rpm max period as 30mS 
; set the rpm max period as 30mS 
; H rpm not updated by then reverse 



THIS IS THE SWITCH TEST SUBROUTINE 
STATUS 

0 -> COMMAND TEST 

1 => WORK LIGHT TEST 

2 -> VACATION TEST 

3 => CHARGE 

SWITCH DATA 

0 =>OPEN 

1 «> COMMAND 

2 «> WORKLIGHT 

4 => VACATION 


CMD_SW 
LIGHT_SW 
VAC_SW 


COMMAND_TEST: 


( 

NOTF LASHED: 


RS232 

SW_DATA 

STATUS,#03d 

ugt.stan 

2, charge 

STATUS.#02d 

z.VACATION_TEST 

STATUS.OOId 

2, WORKLIGHT TEST 


VACFLAG.#O0H 
z.COMMAND_TESTl 

VACFLASH 
VACFLASH.#10 
utt. COMMAND TEST1 
p3.#CQHARGE~ SW 
p3.#DIS_SW " 
VAC FLASH, #60d 
nz.NOTF LASHED 
VACFLASH 


; set the default ta open 'idle' 
: test for illegal number 
; if so reset 

; if it is 3 then goto charge 

; test tor vacation 

; if so then jump 

; test for worklight 

; if so then jump 

; else il id command 

; test tor vacation mode 
; if not vacation skip flash 

; increase the vacation llash timer 

; test the vacation flash period 

; if lower period skip flash 

; turn off wall switch 

: enable discharge 

; test the time delay for max 

: if the flash is not done jump and ret 

; restart the timer 


C0MMAND_TEST1: 


CMDCLOSED: 


pO.#SWtTCHES 
ru.CMDOPEN 
P0.#1O0OOO0OB 
nz.CMDOPEN 

DEC VAC 

DECLK3HT 

CMD_DEB.#OFFH 


; command sw pressed? 

; open command 

, test the second command input 


; decrease vacation debounce 
; decrease light debounce 
; test for the max number 



SKIPCMDINC: 
GOT_A_CMD: 


LAST_CMD.#055H 

SW_DATA.#CMD_SW 

AUXLEARNSW,#100d 

ug1.SKIP_l.EARN 

RP 

#LEARNEE_GRP 
SETLEARN 
SW DATA 


; H not made then exit 


; set the last command as command 
; set the switch data as command 
; test the time 


SKIP_LEARN: 
CMDEXIT: 


CMDDELEXIT: 


; set the de bouncer to ff one shot 
; set the de bouncer to ff one shot 


; turn on the charge system 


p3.#CHARGE_SW 
p3,#CDIS_SW 

SWITCH_DELAY,#CMD_DEL_EX ; set the delay time to 8mS 
STATUS,#CHARGE ; charge time 


p3,#»LB *C CHARGE_SW 

p3,#DIS_SW 

DELAYC.#16d 

DELAYC 

ru.DELLOOP 

pO,#SWITCHES 

nz.TESTWL 

DECVAC 

DECLIGHT 

DECCMD 

AUXL£ARNSW,#OFFH 
CMDEXIT 


; command switch open 
; turn off charging sw 
; enable discharge 
; set the time delay 


bop till delay is up 
command Kne still high 
If so return later 

H not open fine dec all debouncers 


STATUS.#WL_TEST 


WOR KL IGHT_TEST: 
tm 


pO.#SWiTCHES ; cornmand line still high 
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SKIPUGHTINC. 1 ' 

q 

jr 

GOT_A_LIGKT: 


LIGHTDELEXIT: 


nz.TESTVAC2 

DECVAC 

DECCMD 

UGHT_DEB.#0FFH 

z.SKIPLIGHTINC 

LIGHT_DEB 

LK3HT_DEB.#UGHT MAKE 
nz.CMDEXIT 

LIGHT_DEB.#OFFH 

SW_OATA,#LIGHT_SiV 

RRTO,#101d 

ugt.CMDEXrr 

AUXLEARNSW 

CMDEXIT 


STATUS.#VAC_TEST 
switch_delay.#VAC_DEL 


i exii setting lo test for vacation 

; decrease the vacation de bouncer 

; and the command debouncer 

; test tor the ma* 

; if at the max skip inc 

; inc debouncer 

; test for the light make 
; < f " ' • then recharge delay 

; sei the debouncer to max 

; set the data as worklight 

; test tor code reception 

; if not then skip (he seting of flag 

: start the learn timer 

; then recharge 


; set the next test as vacation 
; set the delay 


VACATION_TEST: 


VACOUT: 

CJ 

jr 

GOT_A_VAC: 

Id 
Id 

VACATION_EXtT 
W 

VACDELEXIT: " 
EXfT_ERROR: 


ret 


call 


switch_delay,VACDELEXIT 

pO.#SWITCHES 

nz.EXIT_ERROR 

DECLIGHT 

DECCMD 

VAC_DEB.#OFFH 

z.VACINCSKIP 

VAC_DEB 

VACFLAG,#00H 
z.VACOUT 

VAC_DEB.#VAC_MAKE IN 
nz.VACATION_EXIT ~ 
GOT_A VAC 


d line stHI high 
; exit with a error setting open state 
; decrease the light debouncer 
; decrease the command debouncer 
; test lor the max 
; skip the incrementing 
; inc vacation debouncer 

; test tor vacation mode 
; i< not vacation use out time 

: test for the vacation make point 
; exit if not made 


i charge 


oTATUS,#CHARGE : set the next test a 


; decrement the debouncers 
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DECLIGHT 

f^ , IPt , - DELAY #VAC - DEL -EX : set the delay 
STATUS.#CHARGE ; set the next l« 


; set the next test as charge 


p3.#CHARGE_SW 

p3.#CDIS_SW 

SWfTCH_DELAY 

nz.charge_ret 

STATUS.#CMD_TEST 


CMD_OEB.#CMD_BREAK 
nz.DECCMDEXtT 

CMD_DEB 
BCMD_DEB 


; test lor the min number 
; if at the min skip dec 


; i> not at break then exit 
; il not break then exit 


OECCMDEXIT: 


SKIPUGHTDEC: 


DECLIGHTEXIT: 


LIGHT_DEB.#OOH 
Z.SKIPLK3HTDEC 
LIGHT_DEB 

LIGHT_DEB.#LIGHT_BREAK 
nz, DECLIGHTEXIT 
LIGHT_DEB 


; test lor the min number 
; if at the min skip dec 
; decrement de bouncer 

; if not at break then exit 
: if not break then exit 
; reset the denouncer 


SKIPVACDEC. 
DECVACIN: ' 


VAC_DEB,#OOH 
z.SKIPVACDEC 
VAC_DEB 


; test lor the min number 
; if at the min skip dec 
; decrement de bouncer 

: test for vacation mode 
; if not vacation use out tim 


VAC_DEB,#VAC_BREAK_IN ; test for the vacation break p 
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CLEARVACDEB: 
clr 

DECVACEXIT: 


; reset the debouncer 
; and exit 


THIS ROUTINE GENERATES THE RAMP FOR THE COMPARATORS 


posh 

n> 

srp 

#PWM GROUP 

and 

p3.# A C PWM HI 


p0.#DOWN_COMP 

id 

nz tesl up 


dn_temp.pulsewidth 

tm 

p0,#UP_COMP 


nz.update_pwm 

Id 

up_temp,polsewidlh 

add 

pulse width.#4 

djnz 

pwrr_count,pwm_exi1 

.ADDRESS: 



rcl 


rrc 

dr>_temp 

rcf 


rrc 

dn_lemp 

rcf 



up_temp 

rcl 



up temp 

Id 

DNFORCE.dnjemp 

W 

UPFORCE.upjemp 


DN_ADDRESS_OK: 


dn_temp,#064d 

ult,DN_ADDRESS_OK 

dn_temp,#064d 


save current pointer 

take pwm output low 
was it down torce? 
no. test up lorce 
save setting 

up torce trip? 
should be high 
save setting 

increase pulsewidth 


turn on stacked interrupts 


save the values 


; test the last address 

; if in the range ok 

; if out of the range set to the top 


force_add_hi,dn temp 
dn_temp,#64d 
dn_temp,force_add_hi 

lorce_add_hi,#*hb fore»_tabte_60 
force_addJo,#»lb force_table_60 


; REVERSE THE ROTATION 



p2.#001 00000b 
nz.DN60_ 
lorce_add_hi.r > hb torce_table_50 
force_add_lo.# A lb force_table_50 


lest the 50'60 bit 


lorce_ add_lo.dn_temp 
lorce_add_hi.#00h 
lorce_add_lo,dn_temp 
1orce_add_hi,#O0h 


; calculate the address add 2X temp 
; calculate the address add 2X temp 


dn_»o rce_h i . @torce_add 
force_add 

dn_torcejo,@lorce_add 


UP_ADDRESS_OK: 


up iemp,#064d 

ult,UP_ADDRESS_OK 

up_temp,#064d 


; lest the last address 

; H in the range ok 

; il oul of the range set to the top 


; REVERSE THE ROTATION 


for ce_add_h i . up_temp 
up_temp,#64d 
up_temp.lorce_add_hi 

force_add_hi,# A hb torce_table_60 
torce_add_lo,«rib torce_table_60 
p2.#O0l0OOO0b ; test the 50/60 bit 

nz,UP60 

torce_add_hi.#*hb torce_table_50 
terce_add_lo,#Nb torce_table_50 


1orce_add_lo,up temp 
1oroe_add~hi.#00h 
toroe_add_lo.up_temp 
torce_add_hi.#O0h 


; calculate the address add 2X temp 
; calculate the address add 2X temp 


up_torce_hi.@lorce_add 
fc>rce_add 

upJorce_lo.@lorce_add 


it hi by le 
it tow byte 


GOT_FORCE: 


PWM_STATUS.«OFFH ; 

pwm_eount.#TOTAL_PWM COUNT 
pulsewidth.#MIN COUNT ; set in 
dn_temp.#MIN_COUNT ; start initial pw 

up_temp.#MIN_COUrTT ; 


tl .poisewtdth 


; toad timer with pulse 
; restore pointer 
; return from irrt 
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S~f. •*° rd 0DC5H 

|~5 word 0DF7H 

S_7: 


■word . 0E29H 
.word 0E42H 
|_8: .word 0E5BH 

c T« WOrd OESDH 

X- 10 word . 0E7FH 

.word 0E91H 
.word 0E9BH 
•word 0EA5H 

.word OEAFH 

- word 0EB9H 

.word 0EC3H 

c ,c "*" >rrf OECDH 

worcl 0ED7H 

c on word 0EE1H 

c-;? : word OEEBH 

5_21: .word 0EF5H 

word OEFFH 

^rd 0FO9H 

|_24: . word 0F13H 

5_25: .word 0F1DH 

|_Z6: .word 0F27H 

c WOrd . 0F31 H 

c^T word 0F3BH 

- wond 0F "5H 

S_30: .word 0F4FH 

c IX' WOrd 0F59H 

X-,, " ord 0F63H 

ZrtT WOrd 0F6DH 

|_34: .word 0F86H 

- worcJ 0F9FH 

|_36: .word 0FB8H 

t~ll ■ word OFDOH 

|_38: .word OFEAH 

WOrd 1003H 

|_j0: .word 101 CH 

WOrtS 1 °35H 

WOrd 104EH 

|_43: .word 1067H 

-word 1099H 

■ worcl 10CBH 
10FDH 
112FH 
1161H 


S_11. 
S_12: 
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S_0. .word ODACH 

-word ODACH 


■word ODDEH 
word 0DF7H 
•word 0E10H 


S_47 
S_48: 
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S_J9: .word 1193H 

S_50; .word 'IICSH 

S_51: .word 1229H 

£_52: .word 125BH 

S_53: .word 12BFH 

S_54 .word 1323H 

S_55 .word 13C1H 

S_56. .word 14FCH 

S_57: .word 16D6H 

S_58: .word 194DH 

S_59: .word 1C62H 

S_60 .word 2014H 

S_61 .word 2465H 

S_62: .word 2954 H 

S_63: .word 2EE0H 

S_64: .word 2EE0H 


FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 


end 


